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Apparat's newest 
disk operat- ^ 
ing system for 

the TRS-80®, 

NEWDOS/80 Version 2.0, has 
added many new enhancements 
and features to make your Model 1 
or III computer more powerful. 
We've kept one thing the same. 
Our support. 

Version 2.0 is our second 
upgrade of our original NEWDOS 
for the TRS-80. Each version 
builds and improves on the 
capabilities of the preceeding 
versions. Just as important, 
Apparat's commitment to 
supporting our products makes a 
good product even better. By 
providing our customers with 
zaps on an ongoing basis, we're 
continually making riEWDOS/80 
Version 2.0 a more powerful tool. 
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Version 2.0... 

High Performance DOS 

MEWDOS/80 Version 2.0 
builds even more performance 
into riEWDOS/80. The versatility 
and sophistication of Version 2.0 
includes features like: 

* Double density support on the 

Model I 
■ Enhanced compatability 

between Model I and III 

* Triples directory size 

* Dynamically merge in basic 
(also allows merging of non 
ASC II format files) 

* Selective variable clearing 

* Can display basic listings page 
by page 
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• Automatic 
repeat function key 
• Routing for 
peripheral handling 

• Enhanced disassembler 
■ Command chaining 

• Superzap to scan files 

• East sort function in basic 

These new features, added 
to the existing capabilities of 
NEWDOS/80, makes it one of the 
most powerful additions you can 
make to your system. And 
Apparat's commitment to support 
assures that you've purchased a 
superior product both today and 
tomorrow. At just $149.00 it could 
be the best investment you will 
make for your TRS-80. 

If you're thinking about 
upgrading your system, call 
Apparat today. Dealer inquiries 
welcome. 

303-741-1778 

TRS-80 is 3 registered trademark of TOmly Corp. 
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GOIHG SUPPORT FOR MICROCOMPUTERS 
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Now, Corvus delivers the most advanced combination of hard 
ware and software to serious TRS-80* users. Corvus is the 
world's largest supplier of Winchester disk systems and 
local networks for microcomputers. 

The Hardware. A compact 5-million byte 5 1 /4-inch 
Winchester in an attractive package at a break- 
through price of $3750. Combines hard disk 
speed with proven Winchester reliability. 
Expandable to 80 million bytes. 

The Software. For TRS-80 Model SP 

I and Model III, Apparatus high .^^/i 

performance NEWDOS/80-C, the 
most powerful TRS-80 operating 
system. For the Model II, TRSDOS* in 
a new Corvus version, as well as OASIS 
and CP/M. Now your existing programs will 
run faster and more reliably than ever before. 
And, you'll enjoy 5 to 80 million bytes of mass 
storage without changing floppies. 
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AND INTRODUCING! 

KEWDOS/80-C 

The most powerful 

DOS for the TRS-80 

Model I and Model HI 



*\ CORVUS SYSTEMS 

5 MILLION BYTE 

51/4 inch WINCHESTER 

DISK SYSTEM 

$3750 



Networking. Using the Corvus OMNINET™ orCON- 
STELLATION network and your computers unmodified 
single user operating system, you can connect up to 64 
TRS-80's in a state-of-the-art multi-processor network. 
Corvus networks allow all computers to share a large 
data base and expensive printer or modem peripher- 
als, and communicate interactively over distances of 
thousands of feet. ~ __ 

Contact Corvus today for the full story. 



r CORVCIS SYSTEMS 

' 2029 OToole Avenue 
San Jose, California 951 31 

408 946-7700 TWX: 910-338-0226 
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This could be yours, but probably never 
$ 1 00 bill is the reward we offer for the di 
of a legitimate bug in o DOSPLUS DISK O 
System. To qualify you must be: 

1 . A registered DOSPLUS owner 

2. Able to demonstrate and document a real 
bug, not simply a design shortcoming. 

UUe're convinced that DOSPLUS is the fastest, most 
powerful, g^jmm^Bst to operate system on the 
market. DOSfPLUS^rksl find works right! For the 
businessman anq^Mbyists, the speed and simplicity 
cannot $e beot^^^e BASIC programmer, NOON€ con 

e do. find for softwc 
compatible EejQjfcS^stems are available for distribution. 
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NO-ONC €LS€ con give youl 

•Th« some high level of Model l/Mo< 
diskette and program compatibility 
•True, complete BASIC program chc 
with files open and variables save< 

We hove it all. Features galore AND error-fh 
and uou con prove it, we've got a brand nei 
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We're not conceited, we're c 

Order yours today, and soon you will be too!! 



MICRO S 




OFTWA 

5846 Funston Street, H 
Phone: (305) 983-335 



, Florida 33023 
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CALL TOLL FREE FOR FAST SERVICE (800) 824-7668, 
OPERATOR 1 93FOR VISA/MASTERCHARGE/C.O.D. ORDERS 

California dial (800) 852-7777, Operator 193, Alaska and Hawaii dial 

(800) 824-7919, Operator 193 

TOLL FREE UNES WILL ACCEPT ORDERS ONLY! 

For Applications and Technical information call (305) 983-3390 or 

drop us a card. 



Dealers inquiries invited 
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This is a picture 

of all the printers in the world 

that outsell the MX-80. 




The one thing you can't beat in the marketplace is value. 
And there simply isn't a better combination of reliabil- 
ity, print quality, features and price in an 80-column 
printer than the Epson MX-80. Anywhere on earth. 

But while we're pleased to make the best-selling 80- 
column printer in the world, we're hardly surprised. 
Because we decided a long time ago that the way to suc- 
ceed in this business is to build a good product, sell it at 
a fair price, and stand behind it. 

So we built our MX-80 with features like a choice of 
24 different type faces, graphics that rival plotters, logi- 
cal seeking, bidirectional printing and the world's first 
disposable print head. We priced it at under $650. And 
if it breaks, we'll be here to fix it. 

That seems like a straightforward enough policy. But 
when we first introduced the MX-80, the competition 



Jaughed. Now they're cutting prices, introducing 
"new" models, and running splashy color ads, all in an 
effort to catch up. And they're not laughing. 

But you don't have to take our word for it. You've got a 
choice: you can buy the printer that's been embraced by 

several hundred thousand 
computer fanatics all 
over the world. Or you 
can buy something else. 
And take your chances. 




EPSON AMERICA, INC. 



3415 Kashiwa Street, Torrance, CA 90505 • (213) 539-9140 



Editorial. 



Back in the good old days when I was 
still a farm boy, we had a pipsqueek of a 
tractor. It wheezed, puffed, grunted and 
snorted. It also died quickly when it 
encountered a tough piece of sod while 
pulling a plow. Then, one spring, I got to 
use a new diesel-powered monster with a 
50-gallon gas tank. It was grossly 
overpowered, even when pulling a five- 
bottom plow, a packer and a seeder. It 
purred like a kitty, and there was 
nothing that would even begin to make it 
hesitate. It cut through the soil as though 
it was warm butter. 

It was a thing of beauty and a joy 
forever, and there was plenty of time to 
make value judgements about overkill 
and underkill. It was nice to have several 
hundred horsepower at your disposal 
and use only small percentage of it. It 
made life easy because little things 
didn't hang you up and cause 
frustration. Taking wear and tear on 
both the machine and the operator into 
consideration, it was probably cheaper 
in the long run. 

Computers do not pull plows, but there 
is an analogy here. How much 
computing horsepower do you need, and 
how much frustration do you encounter 
in trying to make a microcomputer act 
like a minicomputer? In the case of our 
big tractor, it made one effortless pass 
through a half-mile field. The operation 
was complete: One swath of dirt, about 
80 inches wide, was plowed, packed and 
seeded. There was no need to come back 
to it until harvest time. The small 
pipsqueek, on the other hand, had to 
make three passes, and it cut a smaller 
swath to begin with. 

Let's look at a real-life situation here at 
80-U.S. We have a four drive Model II 
which handled a 10,000 plus subscriber 
file. It worked very well • until we hit that 
10,000 limit. Now, all of a sudden, it was 
decision time again. It already took 
almost 6 hours to print labels for the 
magazine. The printer, a Centronics 703, 
seemed to be the pacing factor since it 
ran without hesitation. Obviously, a 
faster printer was indicated. One 
Saturday afternoon, we hauled in a real 
line printer. It actually printed an entire 
line in one fell swoop. It printed its line, 
and then waited! The computer was now 
the pacing factor. More specifically, it 
was disk access time which caused the 
delay. The net result was that 
throughput was not increased. We had 
had a very well matched system all 
along, and didn't know it. 

Naturally, we scrapped the idea of 
buying a faster printer. It wouldn't help 
the situation at all. The capacity 
problem could easily have been solved by 
interfacing a hard disk system to the 
Model II. It was available and sitting 



right there next to it. It was a 20- 
megabyte Corvus system, here for 
evaluation. It worked like a dream, and 
has a fantastic disk access time. With the 
hard disk, we could increase our capacity 
to at least 32,000 records. Running labels 
for the magazine would then take about 
15 hours! It would take another 15 hours 
to run a checking list prior to the actual 
running of the labels. 

We have no second shift, and to put one 
on would cost bucks. Aside from that, our 
experience shows that we rarely can run 
continuously for even six hours without 
getting an I/O error or power glitch 
somewhere during that time. It appeared 
we were trying to plow a half mile field 
with a quarter mile tractor. There are 
limits to microcomputers, and we seem to 
have hit it in this case. For all other 
applications though, the computer is 
overpowered, and loafs through without 
pain or strain. 

This is my second start on an editorial 
for this issue. The first one was too 
sanctimonious and stiff. It had to do 
with about the same thing mentioned 
here, but I find they turn out better when 
they are simply "winged". There is just 
one observation from that first attempt 
that is worth passing along here. In 
trying to collect information for this 
issue, I found that in almost every case 
where a microcomputer was being used 
successfully in a business, there was at 
least one person in that business who 
was personally involved with 
computing. That person writes software 
and selects and modifies software for the 
needs of the business. I have not yet 
talked to or seen a place of business that 
has the fabled "turnkey" system in 
operation. I'm not sure what that says, 
but if I were writing software for a living, 
it would certainly be worth some serious 
thought. Perhaps the microcomputer 
world will spawn, a new breed of person: 
the Micro EDP Manager. 

What about our problem? We solved it 
rather neatly. Our entire subscription 
files have been converted to IBM format 
and transferred to a subscription service 
in Illinois. They have put it on an IBM 
370/something or other. Soon, they will 
be running labels, reports and sending 
renewal notices. They currently service 
over 150 magazines. It's their only 
business and they are set up to handle it. 
It was cheaper than adding a second 
shift here, and now we can go ahead and 
promote at will. We no longer have to ask 
the question about where to put all those 
new subscribers. 

It makes me sort of sad though, to find 
that the wonderful micro has practical 
limits. I always thought micros could do 
just about anything. 

Mike 
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All rights reserved. Reproduction for other 
than personal, non-commercial purposes, 
or further distribution in any other form, is 
prohibited. No patent liability is assumed 
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contained herein. While every precaution 
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machine readable form on diskette or tape. 
Text files may be on diskette. Media will be 
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The Cover 

Our cover for this issue shows the summit 
of Mount Rainier. It is intended to be our 
season's greeting card to you, our faithful 
readers. Jeff Graham was the 
photographer. 
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Letters 



As one who writes a number of retail 
installment contracts each week, and 
who used to calculate each with a 
calculator, I was happy to see the 
contract program in the Sep/Oct 81 
issue. 

After running the program, though, I 
became concerned that the interest 
formulas don't seem valid for this state 
(I'm in Washington). 

Here are the changes I made in order to 
obtain correct rates for my location: 

1080 RI = IR/ 1200 
1090 PF =(1 -(1 + RI)"(- 
MP))/RI : PMT =(INT(BF/ 
PF * 100 + B 5))/100 
1120 FC =(MP + PMT) - BF 
1130 TP = PMT + MP : K1 = 
TP + DPI 

In line 900, change "ADD-ON" to 
"ANNUAL". This way, you need not re- 
calculate the annual rate - it's assumed 
to be correct. You may also want to delete 
lines 1790-1890, which caluclate the 
Texas rate, and delete 750-790, to 
eliminate the Texas instructions. If so, 
change line 740 to: 

740 GOSUB 910 : RETURN 
By using this method, you assume all 
equal payments, and not bother with an 
odd last payment. CAUTION: If you 
charge the maximum legal rate, you may 
wish to add "-0.01" to the end of 1190. 
Otherwise, rounding errors could cause 
your interest to be a few cents over the 
legal rate. In lines 1190 and 1710 change 
"MP-1" to "MP". 

My own contracts are figured with a 
minimum 2% down payment, so I added: 

1005 PRINTS 516, " (MINIM 
UM DOWN PAY 8 T"; : PRINT 
USING " $###.##"; (GT/5 
); : PRINT ")"; 

Finally, if you intend to use this 
program "for real", I strongly suggest 
you take a sample run to your banker or 
accountant and double check that it's 
correct. 

Ron Manor 
Olympia, WA 
(Good idea. Ed) 

Just recently I got a batch of your back 
numbers and just had to write to tell you 
what a great magazine you put out. 

...there are so many good things in the 
last six issues it is difficult to pick one out 
but I think I'd opt for the Graphics 
Editor, by William Mason... 

Ms. Sheena Scott 
Edinburgh, Scotland 
(Joe Fettig of J. F. Consulting was also 
fascinated by Bill Mason's article. As a 
result, he contacted Bill and had him 
expand on the original idea and produce 
the Graphics Editor and Programmer 
announced in this issue's new product 
section. Ed.) 



I've read in articles that using the 
improper ink with a dot-matrix printer 
can cause damage to the printhead. I've 
seen an article for adding a re-inking 
attachment to a printer but it did not 
mention the ink to use if your printer was 
the dot-matrix type. I've tried to find the 
answer locally but have had absolutely 
no luck. My question is what brand and 
type ink can I use to keep my ribbon 
printing dark? 

Arthur Plante, Jr 
Acushnet, MA 

(There are different kinds of ink, many of 
which are designed for mechanical 
devices (printers, numberers and cash 
registers, to name a few). These contain 
some kind of lubricant to prevent the ink 
from drying out and to act as a lubricant 
for the mechanism. 

If you are looking at a commercial re- 
inker, then use the ink they recommend. 
If yours is home-built, then use an ink 
designed for a cash register or 
numbering machine. If you can't find 
one of these, then possibly a self-inking 
stamp ink would work. Stay away from 
the common fountain pen inks and 
stamp pad inks, as they contain little or 
no lubricants. Ed) 



In the Jul/Aug 81 issue you have 
printed a list of printer results... The 
results of my, test bear out what you have 
discovered in your test. However, there 
are discrepancies in the methodology 
you have chosen. 

It is fine to set out parameters in order 
to compare, but there are some things I 
would like to point out. If you determine 
cps in any printer, the thing to do is to 
use the entire line of print at a set cpi. 

It became apparent that using less 
characters in a given line, will give a 
slower cps, as in most printers the 
printhead must travel the full carriage 
(and return on non-bidirectional 
printers). 

I have found by using the above 
parameter, the results show 
manufacturer's rated cps is more than 
was tested... Another program I wrote 
gave similar results. But as can be seen, 
the more characters in a line, the better 
the cps. 

I believe that this is what the 
manufacturer is giving in his ratings. 
Hazen R. Stump 
Burnaby, BC Canada 
(In talking to a number of 
manufacturers, the cps rating is 
consistently specified as "instantan- 
eous" print speed. This means that no 
consideration is given for carriage 
return, starting or stopping, all of which 
affect throughput which is more 
meaningful in measuring printer speed 
than an "instantaneous" rating. As a 
result, many manufacturers are now 
rating their printers at lines per minute 
(usually at 80 characters per line) which 
does take into account time involved in 
carriage movement. Ed.) 



I have a request. Do you know of any 
programs that deal with diet? 

Last week... tests showed I am 
diabetic. Thus they put me on a 120p 
calorie per day diet. Hell, that's 
starvation. 

Anyway, I have to keep track of 
everything I eat and a lot of other stuff 
and the thought came to me of why not 
use the TRS-80 and the next thought was 
that there might be some software 
already written for diets. 

I know how to do some of the things to 
write a program but some things like a 
three day average, always using the last 
three days, have me stumped. 

So I have a two-fold request. First do 

you know of any diet programs and 

second, if not do you know anyone I 

could pay to help me write a program so I 

can constantly monitor my condition? 

James C. McCord 

Box 1672 

Fairbanks, AK 99707 

(I looked at one of those diets once and 
shuddered... take one from group A and 
two from group B, but not on Sunday or if 
you have eaten a slice of bread... Ugh! 
You have my sympathy, and I can't 
think of a better use for a TRS-80 in 
your case. 

If anyone has information leading to 
the capture of such a diet program, 
please contact Mr. McCord directly. Ed) 



I take issue with the editor that 
answered the complaint by Mr. 
Bentivegna of Cincinnati in the Sep/Oct 
81 issue. 

If the parties that place ads in your 
magazine do not know what the cost is 
going to be at the public release date they 
have no business taking an ad in your 
magazine and you should discourage 
this at all cost to your ad customers. If 
the computer business is so unstable that 
a firm price for at least a reasonable 
period of time after the magazine is 
delivered to the customer by you cannot 
be maintained then these firms should 
reconsider the price before issuing an 
offer to sell the product by mail through a 
magazine. 

While I do not advise that you police 
each ad, the buying public would have 
more confidence in both you as a 
magazine and the firms that you provide 
ad space for if you would assert a less 
conciliatory attitude toward the firm 
that changes prices as they see fit. 

W. B. McKinley 
South Lyon, MI 
(It was the implication that we didn't 
care which prompted my reply. That 
hurts, especially since we go out of our 
way to present correct information. I 
stand by my original reply to Mr. 
Bentivegna. -Mike). 
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TALKING 

ROBOT 

ATTACK 



ALL GAMES ' 

16K Level 2. Mod 1 +■ Mod 3 Cassette: $15.95 
32k Level 2, Mod 1 + Mod 3 Diskette $19 95 
10% discount for 2 games, 15% for 3 or more 
Games may be played with or without joystick. 





SCARFMAN 



IS THE ALPHA JOYSTICK 
SUCH A SUCCESS ? 

Because of games like these. 

~ TALKING 

ROBOT ATTACK 

INCREDIBLE! This amazing game actually TALKS 
without a speech synthesizer, through the cassette 
AUX plug. 

You are armed with just a hand held laser. In a 
remote section of the' space station you encounter 
armed robots, some march towards you, some wait 
around corners Watch out, the walls are electrified. 
Zap as many robots as you dare before escaping 
into a new section where more robots await you. 
The struggle continues. With Joystick action and 
VOICE OUTPUT, this game will amaze you . ^^LaJ 

SCARFMAN 

THE LATEST ARCADE CHAZE now runs on your 

TRS-80. 

Its eat or be eaten. You control Scarfman around 

the maze, gobbing up everything in your path. You 

attempt to eat <t all before the monsters devour you. 

Difficulty increases as game progresses. Excellent 

high speed machine language action game From 

The Cornsoft Group. With sound. 

CAUTION; Played with the Alpha Joystick, Scarfman 

may become addictive. 




Actual urtretouched photos 






SUPER NOVA 9 

Asteroids float ominously around ihe 
screen You must destroy the asteroids 
belore they destroy you 1 (Big asleroids 
break into little ones ) Your ship will 
respond to thrust rotate, hyperspace 
and tire Watch out lor that saucer with 
the laser' As reviewed in May 1 981 Byte 
Magazine 
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GALAXY INVASION 



The sound of the klaxon is caNmg you 1 
Invaders have been spoiled warping 
toward Earth You shift right and left as 

you fire your lasers A few break form- 
ation and fly sfraighi at you 1 You place 
your finger on the fire Dutton knowing 
thai this shot must connect With sound 
effects' 



ATTACK FORC^ 

As your ship appears on the bottom of 
ihe maze, eight alien ships appear on ihe 
lop all traveling directly at you 1 You 
move toward them and lire missiles But 
Ihe more aliens you destroy, Ihe faster 
(tie remaining ones become if you get 
too good you must endure the Flag- 
ship WUh sound effects' 
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COSMIC FIGHTER" 



Your ship comes out of hyperspace 
under a convoy of aliens You destroy 
every one But another set appears 
These seem more mleihgent You 

eliminate I hem too Your fuel supply is 
djminishmg You must destroy two more 
sets before you can dock The space 
station is now on your scanner With 
sound' 



METEOR MISSION II* 

As you look down on your view, 
astronauts cry out lor rescue You musi 
maneuver through the asteroids & 

meteors (Can you get back to the space 
sfaiion?) Fire lasers to destroy the 
asteroids but watch out I here could be 
an alien FLAGSHIP lurking includes 
sound effecis' 



THE ALPHA JOYSTICK: 
REAL ARCADE ACTION 

DFeatures the famous ATARI JOYSTICK 
□Works with any Level II or disk system Model i 
□Plugs directly into KB or E/l (next to printer port) 
□Compatible with any other TRS-80 accessories 
DSaves your keyboard 

□ Fun to experiment in BASIC. Simply use A = INP(0) 
to read the joystick 
□Fully assembled, ready to pi u<) in and use. 

Price includes Atari Joystick + Atpha Interface + 
instructions + demo program. The Alpha Joystick 
is backed by an unconditional money back 
guarantee. If you are not delighted with it, return it 
within 14 days for a prompt and courteous refund. 
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Toll Free 

Order Line 

(800) 




0916 



w 



»M4UC1 CQ 



ADO 1 1. 50 PER ORDER FOR SHIPPING ANO HANOLING 

ALL ORDERS SHIPPED FIRST CLASS MAIL 

WE ACCEPT VISA MASTER CHARGE CHECKS M.O.. 

COD ADDS? 00 EXTRA 

QUANTITY DISCOUNTS AVAILABLE 

N Y RESIDENTS ADO SALES TAX 
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ALPHA Products 

85-71 C 79th Street, Woodhaven, NY. 11421 (212) 296 5916 



Items at random 



It's mid-winter . madness time 
again. The madness this year has to 
do with our coming to you monthly 
instead of every other month. You 
may have noted we have dropped 
back a few pages (for the first time 
since we have started). Getting 
geared up to go monthly has been a 
blast, to say the least. You are now 
receiving about 70% more editorial 
material in a two-month period than 
before. The idea of a "February 
issue" seems funny around here, but 
we are already working on it - and it 
will cover word processing and 
spelling checkers, among other 
things. 

We have been taking extra effort 
to make our programs run on 
several of the TRS-80 models. It 
should be noted that almost any 
program which does not include 
random disk files will also work on 
the Exatron Stringy Floppy. 
Speaking of the Stringy Floppy, 
@NEWS is missing again - 
technical difficulties in the 
Southland. The editor for that 
column admits to a red face, and 
promises to be back in February. 

Starting next issue, subscriptions 
and all matters related to 
subscriptions, will be handled by an 
agency in Illinois. We have really 
outgrown doing it ourselves (and I 
used to do it on one Model I floppy 
diskette!). It is very important to 
renew your subscription using the 
same name. It is always best to 
include your label from a current 
issue. It's amazing how balled-up 
something can get when someone 
subscribes from the office and then 
renews from home, especially when 
they work in New York and live in 
Connecticut. Most of the time 
including your old label is not so 
much a courtesy as an absolute 
necessity. 

What with going monthly and all, 
Eva Jones has moved to Editorial 
Secretary. Catherine Doud has 
joined the staff as typographer and 
layout person and Don Scarberry is 
our new assistant editor. You will 
probably see some of Cathy's 
influence in this issue, Don's should 
be apparent in the next and 
following. We are growing, and hope 
these new persons will enjoy their 
stay with us as much as the others 
have. 

Corrections 

The following products were 
reviewed in the last issue (Nov/Dec 



81). We inadvertantly left out 
vendor and pricing information. 
Our sincerest apologies to those 
companies and our readers. 
Introduction to TRS-80 Level II 
BASIC by Michael P Zabinski, 
Ph.D., is published by Prentice-Hall, 
Inc., Englewood Cliffs, New Jersey, 
07632. The price is $10.95 
Fifty BASIC Exercises by J. P. 
Lamoitier is published by Sybex 
Publishing, 2344 Sixth Street, 
Berkeley, California, 94710 and 
costs $12.95. 

ENHBAS, evaluated by Lawrence 
Charters, is from the Cornsoft 
Group, 6008 North Keystone Ave., 
Indianapolis, Indiana, 46220 (317) 
257-3227 and is priced at $59.95. 

Softbyte Computing's Stock 
Chart Grapher description in the 
advertisement appearing on page 
149 should have read: Track your 
own stock's price performance. 
Shows trading prices, volumn, 
moving advances and price 
momentum for up to 60 dates. 
$24.95. 

In NOTES, we talked about 
sending listings to the Model II from 
the Color computer. We inadvertant- 
ly told you to connect pin 1 of the 
Color computer to pins 6, 8 and 20 of 
the Model II. The lines are still tied 
together at the Model II end but are 
not connected to pin 1 of the Color 
computer. Also tie pins 2 and 4 
together at the Model II end. 

In this issue 

Merv is not the only one to do 
themes with panache. Our business 
line-up this issue includes Fred 
Blechman's 12 Column Ledger, a 
program for most TRS-80 models 
with 16K and up. It will also work 
with the Stringy Floppy. No, we are 
not hung up on Model IPs and hard 
disks, but some of that is in here too. 

Something we have never done 
before appears on page 22. Last 
summer, while flying to Aberdeen, 
South Dakota on Republic Airlines, 
I happened to read their magazine 
and found an article by Joel 
Makower. He really seemed to have 
done his homework, and wasn't 
pushing any computer in particular. 
We asked for reprint rights and got 
them. The items he discusses for a 
business environment are worth 
consideration. 

Now there are compilers for just 
about every model of TRS-80, even 
16K Level II. See page 33 for a 
review of three of them. 

Color computer owners can get up 



to 1500 bytes more memory, free! R. 
Wayne Day from Blue Mound, 
Texas tells all about it, starting on 
page 38. 

If you're tired of the "reverse 
shift" syndrome on your Model I, 
William R Bell of El Granada, 
California, tells how to get back to 
the normal "shift for upper case" 
with a little hardware modification. 
It happens on page 43. 

The Exatron Corporation has 
introduced a disk controller for the 
Color computer. We take a pretty 
good look at it starting on page 46. 
The indications are that the Color 
computer, even though it is a 
fantastic game machine, can also be 
a serious applications machine. 

Captain 80 was off to merry ol' 
England recently, and tells about 
his visit and other assorted things 
on page 54. 

Richard Straw, who has appeared 
in our pages a couple of times 
previously, tells about linked list 
subroutines on page 58. They work 
on Level II 16K and up and also on 
the Color computer. This is a 
technique I always wondered about, 
now we can all find out. 

In "Happiness is a printer", Larry 
Krengel tells about his experience 
with the Epson MX-80 printer. It's 
on page 64. 

Hog Jowl Mansion is a zany 
adventure by Jon Waples. It starts 
on page 66, and should spice up your 
holiday spare time. 

A year ago, Spencer Hall 
introduced his nine Z-subs. Now, he 
has expanded them considerably 
and calls it ZLanguage. They are 
really quite clever, and start on page 
79. 

Glenn Collura tells how to find 
execution points on page 88, Dan 
Connors tells how to make a turnkey 
system out of your Model I and Lou 
Pa gives us a "Spacer" program on 
page 94. 

Terry Dettmann takes a look at 
the Corvus hard drive system on 
page 107, and for beginners, Bob 
Bahn looks inside the FOR...NEXT 
loop on page 110. 

There are several other goodies, 
System/Command and a few 
reviews for your wintertime 
reading. 

See there, going monthly wasn't 
that bad, was it? We will do it again 
in February, and in the meantime, 
enjoy your holidays and tell them all 
that you saw it in 80-U.S. 

Mike 
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Call or Write 
Your Nearest 
Snappware 
Distributor 






M'ICRO-80 
284 Goodwood Road 
Clarence Park 
Adelaide South Australia 
Ph-(08) 2117224 

DIGI-TEK SYSTEMS 
65 Thornridge Circle 
Kitchener Ontario NZM-4V9 
Ph-(51 9) 743-1699 . 

Stra'wflower Electronics 
50 North Cabrillo 
Half Moon Bay, California 94019 
Ph -(41 5) 726-9128 

COMPUTER MAGIC 
115 Wiltshire Avenue 
Louisville, Kentucky 40207 
Ph-(502j 893-9334 

E-CDATA 
Tornevangsvej 88 

P.O.B. 116 

OK-3460 ■ - 

Bikered, Denmark 
Ph-45(0) 2/818191 

System Soft 

49, Dunvegan Drive 

Rise Park _ " 

Nottingham, England 

N'G5 5Dx • - ■ 

Ph-(0602) 275559 

Programs Unlimited 
20 Jericho Tpke. 
Jericho, Long Island 
New York 11753 
Ph-(51 6) 333-2266 

AEROCOMP 

Redhird Airport 

HangerS 

Dallas, Texas 75232 

Ph-(214) 339-5014 " ' - 

80 Data Systems 
10307 Smokey Point Blvd. 
Marysville, Washington 98270 
Ph-(206) 653-3883, . 

Quality Software Distributors . 
1 1 500 Stemmons Expressway- 
Suite 104 

Dallas, Texas 75229 
Ph-(214) 484-2976 



IHBN 



mming time is valuable. That's why we are 
lat will cut your programming time up to 75%!- 



, ^e tor yourself the value of our 

re, at your convenience Our five best selling 

EXTENDED BUILT IN FUNCTIONS, COLLEGE 

:T0Ft AUTOMAP and AUTOFILE, are all 

.. « u.dl basis for only $50.00 for the Model II and 

del III. We're convinced that after you see how well our 

., s you perform' programming tasks, you will purchase them 

i thousands of others have, 

• *-ial package consists of a master diskette which may be used to 
one working copy. Your purchase price. for the trial package will be 
vara the purchase of any software' Snappware sells 

jason you are not satisfied, just return the trial diskette and 
,^„, a ^,py and we will refund your money, no questions asked. With 
m unconditional guarantee like this, you can't lose. 

Call our toll free number '800-543-4288 to put us on trial. We're sure your 
verdict will be: Snappware saves you time and money. 

MODEL II Trial Package ..... .$50.00 

MODEL III Trial Package $35.00 
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Time saving power 
at your fingertips. 

CALL TOLL FREE: 

1-800-543-4628 

OHIO RESIDENTS CALL 

COLLECT: (513) 891-4496 
3719Mantell f~ : £ffii 

Cinti., Ohio 45236 feHSB 
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New products 



Designatron Organizer 

The Designatron Organizer places 
your TRS-80 Model I components into 
one convenient desk-top package to hide 
messy wires and cables. The Organizer 
consists of two wood grain cabinets. One 
holds the monitor, expansion interface 
power supplies, line filters, cables, power 
strip and fan. The front panel removes 
easily for resetting the computer. The 
other cabinet holds up to four disk drives, 
a tape recorder and fan. The cabinets 
are available separately. Together they 
sell for $87.50 plus $8.75 shipping. 
Designatron, 2794 Hume Road, Malibu, 
CA 90265 (213) 456-9023 
Circle 150 

New British Program 

EDIT is a new full-screen BASIC 
editor for TRS-80 Model I/III. The 
program has a full-floating cursor with 
autorepeat and over 30 commands for 
professional editing of BASIC text at the 
character, word, line or block level. A 
Scripsit-like control structure aids 
speedy familiarization and ease-of-use. 
EDIT was recently developed in 
England by Southern Software, 
originators of the ACCEL2 compiler, 
and is available in the U.S. and Canada 
from Allen Gelder Software, Box 11721 
Main Post Office, San Francisco, CA 
94101. Price is $40.00 

Circle 152 

New artificial intelligence book 

SAMS has introduced a new book 
called Experiments in Artificial 
Intelligence for Small Computers. 
Author John Krutch presents programs 
written in Microsoft's Level II BASIC. 
The book begins with an explanation of 
artifical intelligence. Game playing 
programs, problem solving, reasoning, 
creativity, natural language processing 
and verbal communications are areas 
covered by subsequent chapters. It is 
number 21785, contains 112 pages, costs 
$8.95 and is available from Howard W. 
Sams & Co., Inc., 4300 West 62nd Street, 
Indianapolis, IN 46268 (317) 298-5400 
Circle 158 

New computer simulations 

Creative Computing Software has 
released two simulations for the TRS-80, 
Atari and Apple computers. TRUCKER 
allows the user to experience a trucker's 
haul from coast to coast. STREETS OF 
THE CITY is a simulation model of 
Grand Rapids, Michigan. The objective 
of this simulation is to complete a 
ten-year plan of street and transit 
improvements while retaining the 
support of the majority of the city 
commission. They are $24.95 each on 
diskette. Creative Computing Software, 
39 East Hanover Ave., Morris Plains, N J 
07950 (201) 540-0445 

Circle 159 




Graphics Editor/Programmer 

J. F. Consulting has announced the 
Graphics Editor and Programmer which 
is a hybrid program that is part text 
editor, screen drawing utility and 
BASIC program creator. The price is 
$25.99 for the Model I and III, 16K and 
up. Also available are the Expansion 
Modules I, II and III for the Graphics 
Editor and Programmer. Module I adds 
magnification and rotation features; 
Module II, large alphanumeric 
characters; Module III, an alternate set 
of large alphanumeric characters. All 
three modules are included in one 
package at $16.99. Contact J. F. 
Consulting, 74355 Buttonwood, Palm 
Desert, CA 92260 (714) 346-2051 
Circle 151 



New games from Liberty Software 

Liberty Software Company, a division 
of Acorn Software Products, announces 
the release of its first two programs for 
the Radio Shack Model I and III: Golfer's 
Challenge and Alien Armada. Alien and 
Golf are available on cassette for $13.95 
each and Alien on diskette for $17.95. 
Both feature good graphics, sound 
effects, fast speed, and one or two player 
options. Liberty Software Co., 635 
Independence Ave., S.E., Washington, 
DC 20003 (202) 544-6674 
Circle 154 




by Waldron P. Hodsdon 



by Charles S. Butler 
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New products 



Color computer mail list 

D & M Software has announced 
COLORFILE, a simple i menu driven 
mail list system for the color computer. 
Designed to be used with or without a 
line printer, options allow for creation, 
review and editing of a file which may be 
saved to cassette for storage. Price is 
$24.95 postpaid. D & M Software, 1510 
South 97th Street, Tacoma, Washington 
98444 (206) 537-8155 

Circle 156 



BASIC Handbook in 2nd edition 



The second edition of The BASIC 
Handbook by Dr. David A. Tien, has 
been released by CompuSoft Publishing. 
This edition is fully revised to document 
and explain 238 additional BASIC 
words from the hundreds of new 
computers which have been introduced 
since the first edition, published in 1978. 
The Handbook provides an easy to 
follow format that allows the user to 
learn and thoroughly utilize the 
hundreds of known BASIC dialects. It 
contains 480 pages and is priced at 
$19.95 plus $1.65 shipping. CompuSoft 
Publishing, 1050 Pioneer Way, Suite E, 
El Cajon, CA 92020 (714) 588-0996 
Circle 157 




5-Game Educational History 



Orchestra-85 



Stereo music synthesis and percussion 
for the TRS-80 is now possible with 
Orchestra-85, a software/hardware 
product from the Software Affair. The 
package includes tape and diskette 
versions plus sample music files on 
cassette, instruction manual, and a fully 
assembled and tested printed circuit 
board which plugs into any Model I 
Level II keyboard or Expansion 
Interface. The high level stereo output 
may be connected to the AUX/TAPE/ 
TUNER inputs of any stereo amplifier. 
No external power supply is required. 
The system sells for $129.95 plus $2. 
shipping. Software Affair, 858 Rubis 
Drive, Sunnyvale, CA 94087 (408) 
295-9195 

Circle 155 



An educational software package for 
the microcomputer is being issued by 
Advanced Operating Systems. "The 
Time Dungeon-American History" is a 
5-game package designed to help the 
user become knowledgeable in five eras 
of U.S. History "1848-1914", 
"American History 1916-1975", 
"American History-Civil War 
1850-1865 and "American History 
Presidents 1789-1981". The package is 
written in BASIC. 

When the game begins, the user finds 
himself at an unknown location in a 
dungeon with 1000 pieces of gold. He 
must answer questions concerning the 
history of the U.S. during the era chosen. 
The object of the game is for the operator 
to map his way out of the dungeon with 
as many pieces of gold remaining as 
possible. Gold can be gained, among 
other ways, by answering questions 
correctly. 

Time portals, a Crystal Key, Closet 
doors, Secret doors, Time Traps and 
Alien Travelers all add to the mystery of 
the game. 

The package is available through 
computer retail outlets. Advanced 
Operating Systems is the microcomputer 
software division of Howard W. Sams & 
Co., Inc., a subsidiary of International 
Telephone and Telegraph Corporation. 
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® For RS232 Serial Interface 

9 For DEC, HP, TANDY and other users 

® Color coded for easy identification 

@ Compact size - 1 3/4" x 2" x 3/4" 

® Integral PC board circuits 

The next time you have a problem with a RS232 Serial Interface - 
remember SY2YGY connectorsl Whether adding Printers or Terminals, 
SYZYGY modules will provide standard or null modem configurations, 
connector sex changes, or loop-back testings of peripheral devices and 
cables. 

For DEC, HP, TANDY or other equipment, chances are we have the right 
connections . . . even a module for attaching Letter Quality Printers direct 
to CPU Serial Ports. (This enables the use of popular 4-wire extension 
cables.) 

S Y Z Y G Y ,T ' M " P.O. Box 4036 • 256 W. 
"the interface people" 




NULL MODEM SERIES 

Female/Female (red & yellow) NM25F 

Male/Male (blue & yellow) ..." NM25M 

Female/Male (black & yellow) [ NM25B 

Letter Quality Printer-Female (red & white) WS25F 

Hewlett Packard-Female (red & pink) HP25F 

SPECIAL APPLICATIONS 

Loop back-Female/Male (black & brown) LB25B 

Double Sex-Female/Female (red & red) DS25F 

Double Sex-Male/Male (blue & blue) DS25M 

PRICE $25.00 each in Quantities 1-49 (order by stock number) 
San Bernardino Rd., Covina, CA 91723 ® (213)332-3320 
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Tandy topics 



Tandy topics 



Ed Juge, Director Computer Merchandising, Tandy Corp. 
1500 One Tandy Center, Fort Worth, TX 76102 



Our faithful mail carrier has had 
more than normal exercise this 
month. We continue to hear several 
common questions... ones I'd like to 
address before we get started with 
some other subjects I think you'll be 
interested in. Most common seems 
to be the one on software. Why don't 
we sell software written by other 
people? The answer is, we do! More 
than half of Radio Shack's software 
was written by outside professional 
software developers. But because it 
is modified, edited, tested, and most 
important —supported by Radio 
Shack, it goes out under our name. 
In some cases, our contract with the 
vendor even specifies that we will 
furnish all necessary customer 
support, so the vendor won't have to 
answer lots of user calls. 

Next logical question is, how can 
you sell your software to Radio 
Shack? Well, first of all, we have a 
large backlog of software to look at 
most of the time, and frankly we're 
very short-staffed for that kind of 
activity. Second, we probably look 
at 200-plus for every one we select, 
because they're 1) not professionally 
designed and/or coded, 2) not 
professionally documented, 3) cute 
or impressive but of little real 
benefit to the user, 4) of interest only 
to a very limited market, or 5) a 
direct "knockoff" of an existing 
program somewhere. But, if you 
think you have a winner, here's the 
procedure: 

Submitting Your Software 
to Radio Shack 

1) Don't send the program to us 
right off the bat, please! Send a 
one-page letter describing the 
program, who would want it, 
how big you think the market is, 
and why you feel we should 
market it. And please remember 
to say which computer you have 
it written for! And we need to 
know whether or not your pro- 
gram has been copyrighted and 
sold (at least one copy). Don't be 
in a rush, it could take us 60 days 
to reply. 

2) If we're interested, we'll contact 
you for a copy of the program 



and documentation. Our people 
will look over the program and 
your code, and contact you. 
3) If we proceed, it could be 6 to 12 
months before editing, testing, 
etc. is complete, and your pro- 
gram reaches our stores. 
So that's how it's done. We are 
looking primarily for programs with 
a broad appeal to a wide market. 
Truly useful home programs would 
be of interest, but please no 
checkbook balancers or cupboard 
inventory schemes. Good vertical 
market business or professional 
packages are of interest if the 
market is large enough. Games 
must be original and have 
exceptional graphics . . . and we 
aren't interested in games or home 
applications for Model II. 

Why Don't We Have 
More Software? 

A common question is why does it 
take so long to get more software 
out? Right now, there are 149 
different software packages in our 
warehouses. A few months ago, I 
counted in one of our competitor's 
catalogs and found a total of 15. But 
then the Medflies did hurt the fruit 
crop in his area . . . ! That's no excuse 
for us, and we're not satisfied with 
. our development speed either. Let's 
look at the development pipeline for 
Color Computer software . . . It takes 
about one month per thousand bytes 
of code to develop and debug a 
program. 8K means 8 months' time. 
Then comes 60 to 75 days minimum 
testing, followed by 3 months to get 
ROMS, and another month to 
assemble the packages and get it to 
our warehouses. That means 13 
months for an 8K color package. 
Although Model II and III software 
do not have the ROM time, most of 
those packages are considerably 
more complex and require more time 
in other areas. Of course, these are 
very generalized examples. 

You might be interested to know 
that we currently have almost as 
many packages in various stages of 
development as we have in the 
warehouses today. And, for you 
educators,* there will be some 



educational software for the Color 
Computer ... as requested. 

Still Other Questions . . . 

Why is our TRSDOS primitive 
compared to some of the other 
DOS's available? Well, beauty is in 
the eye of the beholder, but I don't 
think "primitive" is a fair 
judgement. TRSDOS is a good, 
reliable, forgiving operating system 
on which the average non-technical 
user can run applications software 
with as little hassle and chance of 
error as possible. It wasn't intended 
to be a "programmer's dream" 
development system. TRSDOS does 
a lot of error checking and attempts 
to prevent and recover from 
operator errors. We use techniques 
like dual directories, verify detect, 
verify after write, etc. Systems 
without these capabilities run 
noticeably faster, and of course you 
can "turn off" most of these items in 
TRSDOS if you're in that much of a 
hurry, and willing to take your 
chances. I don't, and I suggest that 
you don't either, unless you're a very 
competent professional program- 
mer and fully understand what 
you're getting into. 

TRSDOS is a good utility product 
— and the price is certainly right! If 
your needs differ from what we 
offer, by all means, look into CP/M, 
NEWDOS, LDOS, DOSPLUS, or 
one of the other aftermarket 
products available. (Sorry if I left 
anybody out!) Remember that these 
systems are supported only by their 
authors . . . not by Radio Shack. 
Should you have a problem, it's 
strictly between you and them. We 
can't answer any questions about 
them, because our people do not 
know them. We can check your 
hardware (using TRSDOS), but if a 
problem remains with XYZDOS, it's 
strictly between you and XYZ 
Company. 

TRS-80 Microcomputer News 

Another common question is 
"How can I get back issues of the 
TRS-80 newsletter?" Well, I finally 
have a good answer — in our stores! 
We've packaged every issue in 
reprint form, from issue Number 1 to 
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and including December, 1980. 
Twenty issues in all, and available 
under Catalog Number 26-2115 for 
just $4.95. 

So Much For Questions . . . 
Now On to the Good Stuff! 

With the express caveat that any 
"advance information" you find in 
this column is not 100% cast in stone 
. . . and is subject to Murphy's law 
and a variety of unforseen dark and 
sinister forces that affect software 
and hardware development, I'll try 
to give you some of the details about 
upcoming items as often as I can. 

Hard Disk! 

For example, our long-rumored 
hard disk should be showing up in 
the field about the time you read 
this. As of this writing, it's on 
schedule for a December 31 release 
date. Initial testing of our existing 
application software indicates that 
we may have to do significant 
rewriting to only one package . . . 
Scripsit. You may not be able to scan 
through Visicalc's directory with 
hard disk but it appears everything 
else works... so far, including Profile 
and the accounting packages. There 



may be some minor patches 
required for some programs, but 
they don't look bad at all. The disk 
has been advertised as 8.5MB 
formatted. We were hedging a bit . . . 
it will actually . be 8.9MB, less 
systems software and directory. The 
first drive should net out at about 8.6 
useable, and the remainder of the 
drives 8.9 less the directory. 
Installation is required on the first 
and second drives. When you buy 
your first one, you'll need to bring in 
your Model II CPU for connector 
and board installation, a new boot 
ROM, and possible board changes. 
When you buy the second, bring in 
the first hard disk unit — a 
terminator must be removed and put 
in the second disk. To add the third 
and fourth, we think you'll be able to 
take them home and plug them in 
between the other two. 

Backup will be accomplished with 
SAVE and COPY commands. You'll 
be able to save from hard disk to a 
TRSDOS 2.0 floppy, or to special 
"Hard Disk Formatted Floppies" 
which accept a little more data, and 
are specifically for backup purposes. 
You will be able to read data onto the 
hard disk from either TRSDOS 1.2, 



- — ; Tandy topics 

2.0, or hard disk floppies. A full disk 
should take 12 or 13 hard disk 
floppies for complete backup, but 
you won't have to do a full backup 
daily. (By the way, we expect the 
final backup onto hard disk floppies 
to require somewhere in the 60 to 90 
second per diskette range). 

Backup options will include full, 
everything created before/during/ 
after specified date(s), everything 
updated before/during/after . . . , or 
you can specify files to backup using 
wild cards, dates, extensions ... or 
you can effectively create a DO file 
listing those files you want backed 
up. 

The number of directory entries 
possible on the disk is effectively 
limited only by the amount of 
available disk space. You'll be asked 
how much directory space to 
allocate up front, but if the system 
needs more, it will grab it, assuming 
it's available. You will, by the way, 
be able to boot up under either hard 
disk or floppy, so your old floppy 
programs will run in that mode 
without transfer to hard disk. And, 
yes, it will be possible to have 4 
floppies and 4 hard disks attached 
at the same time. ■ 



intannle with the 




Now you can place your TRS-80 Model 1 compo- 
nents into one convenient desk top package. The 
ORGANIZER puts everything within reach, with 
room for Monitor, Expansion Interface, four Disk 
Drives, Diskettes, Cassettes and tape recorder. 
The ORGANIZER eliminates messy wires, re- 
duces eye and body strain, provides room for ven- 
tilation, and works as a dust shield. 

The ORGANIZER consists of two cabinets: 

CABINET ONE holds Monitor, Expansion Inter- 
face, Power Supplies, Line filters, Cables, Power 
strip, Fan and has an easily removable front panel 
for re-booting. 

CABINET TWO can hold up to four Disk Drives, 
Tape Recorder, Fan, Diskettes and cassettes. This 
cabinet is usable with any manufacturer's 5 1 /4" 
disk drives. 

BUY BOTH— $87.50 + $8.75 ship & handle 

CABINET 1 —$64.00 + $5.75 
OR . ship & handle 

CABINET 2— $44.00 + $4.50 
ship & handle 

For VISA, MASTERCARD, or C.O.D. 



Cabinet One 



Cabinet Two 




DESIGI 



CALL NOW TOLL FREE 

Continental U.S.... 800-824-7888 ask for operator 617 

California. . . 800-852-7777 ask for operator 617 

Alaska and Hawaii . . . 800-824-7919 ask for operator 617 

Or send check or money order to: 





Circle # 8 



2794 Hume Rd, Malibu, California 90265 
For information call (213) 456-9023 
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TRS-80 PROGRAMS 
SUPER SOFTWARE AT SUPER PRICES 



THE ULTIMATE DISK-OPERATING SYSTEM 



LDOS 



TM 



A completely documented new generation of 
operating system for the TRS-80. Far superior to 
any on the market. It is a totally independent 
device system, capable of device linking, routing, 
setting, and filtering. LDOS will support 5" and 8 ' 
floppies, single/double density, single/double 
sided, and up to 80 tracks. Full customer service 
provided with a toll free 800 number. Excellent 
documentation in a tab indexed manual <over250 
pages). Call or send for more information today. 
Available for Model I 
or III only $149.00 

LDOS ,M is a product of 
Logical Systems Inc. 

ALSO AVAILABLE 

EDAS 3.5 Model I and ill. . . $79.00 

EDAS 5.0 Model II $179.00 

Host Model H was $199.00 

now $99.00 



BUSINESS SYSTEMS 

INVENTORY MASTER SYSTEM 

With today's market, keeping on hand only what 
your demand calls for is reason enough to let 
your TRS-80 accurately and effectively take care 
of your Inventory. Always know what to stock and 
when to stock it. This system has many features 
which were modeled after a main frame system 
of large capacity. More information available 

upon request. 

Model l version just $159.00 

Model in version just $259.00 



MAILING SYSTEMS 

MAIL/FILE - SERIES II 

NEW Series II Mail/File has all of 

the outstanding features of the 

original Series I Mail/File, PLUS 

many additional qualities which 

again will set standards for 

this type of system. "Word 

processor* type input editor, 

fast sorting, and fabulous 

editing capabilities are a 

few of its features. Name 

and ZIP code are under 

constant sort. Series ll is 

compatable with Series l data files. 

Model l system will handle up to 600 names. 

Model III system will handle up to 1200 names. 

Either system available for only . . $159.00 

Also available for the Model ll $199.00 

THE ULTIMATE IN MAILING SYSTEMS 

MASS/MAIL SUBSCRIPTION SYSTEM 

AVAILABLE FOR MODEL II. 

I think the system wit! stand the test of time . it is probably 
the most sophisticated system around for the micros today 
Mike Schmidt (EDITOR) 80-US Jan/Feb pg. 94 

Catactic's Mass/Mail System was designed with 
the needs of the large mailing list in mind. This 
system has capabilities of handling up to 10,500 
records, with access times of less than 1 5 seconds 
and usual access of about one second. All adds, 
deletes and edits are instant for the operator and 





ALSO AVAILABLE . 

For the MODEL I or 

STOCK MARKET MONITOR 

cassette version $89.00 

Disk version $99.00 




MAILING SYSTEMS 

are then completed later in a 
batch mode . The System 
comes complete with exten- 
sive documentation and on- 
going support 

Contact Galactic software 
for detailed specifications 
for your exact needs. Avail- 
able only for the TRS-80 

Model ll. 

ULTRA-TREK CAME 

can you master this 
trip through the galaxies? 

Climb aboard the Star-Ship Enterprise and head 

for a universe of unknown encounters, enemies 

and stellar battles. As commander, will you be 

able to keep the Enterprise and its crew en 

route and on patrol? Can you destroy the 

hostile base? Order today. 
Model l or 111 version only $19.95 

All of Calactic's products have a one year 

limited warranty with customersupport included 

with each purchase, warranty information is 

available upon request in writing. 

Money orders, credit cards, & cods shipped 

within 24 hours. 

Cant wait? 
call 

414/241- 8030 

TRS-80 A Trademark of Tandy Corp. 




ma&iet charge 

lnf itaU AIM* Lt,»: 



Business Application 



For Models I, II (h III 16E 

and iuip with printer 



Fred Blechman 

72 1 7 Bemadine Avenue 

Canoga Park, California 92307 



Were it not for the Internal 
Revenue Service, I wouldn't keep 
books at all! Operating a small 
home-based business without 
employees is simple and has many 
tax advantages. It requires some 
recordkeeping to justify deductible 
expenses, and to complete the 
required IRS Schedule C with your 
tax return. Faced with this need, I 
wrote a TRS-80 Model I/III Level II 
16K program in BASIC to do the 
necessary recordkeeping with a 
minimum of time, effort and cost. 

The old way 

For 17 years I've used a simple 
12-column method to record income 
and expenses for my Amway Direct 
Distributorship, and more recently 
for my "Blechman Enterprises" 
TRS-80 microcomputer software 
business. Income is merely the total 
of all sales: wholesale and retail 
plus bonuses received. I use monthly 
totals of all invoices, so that's easy 
enough. Expenses, however, require 
more detail. Larger businesses seem 
to require dozens of expense account 
numbers. At least, that seems to be 
what bookkeepers and accountants 
insist on using. I suspect this may 
serve to create a mystique about 
their work that will keep you from 
ever considering doing it yourself! 
Another popular accounting 
method is that of double-entry 
bookkeeping, with balancing of 
debits and credits. Income and 
expenses I can understand, but all 
this other jargon leaves me cold, so I 
just keep things very simple. My 
hand- written 12-column ledger book 



(about $2.50 in stationery stores) 

used column one for the total 

expense amount, and the other 11 

columns were expense categories, 

such as: Merchandise, office 

expense, utilities, promotion, petty 

cash, etc. I simply wrote the date, 

check number and description 

followed by the amount in column 

one, and then wrote the amount 

again under the approriate category 

column. If an expense was split 

between categories (such as a 

telephone bill, which might be 

partly business and partly personal) 

each portion was listed under the 

appropriate heading. I used a 

column headed "Draw" for 

nondeductible personal expenses, 

such as transfers to another bank or 

savings account, or cash drawn for 

personal use. In all these years, I've 

yet to find an expense that I couldn't 

fit into one or more of the 11 

categories. 

Enter the TRS-80 
However, all this still involved 
considerable time and effort to 
hand-enter the numbers, total all 
columns per page, then add page 
totals for monthly totals, then add 
monthly totals for annual totals to 
use on the Schedule C. Therefore, a 
couple of years ago I wrote a TRS-80 
Model I Simplified Bookkeeping 
Program as part of my $30 "Amway 
Product Distributor Programs" 
package of seven BASIC programs. 
It still required a ledger book to 
make all the entries by hand, but did 
all the column addition and page, 
month and annual totals for all 
columns. This was better than 



before, but I still needed to make 
hand entries in a ledger book. Why 
couldn't the computer do it? 

Last year I acquired an Okidata 
Microline-80 printer and wrote a 
program to completely replace my 
ledger book. It prints out individual 
8 X 11 sheets using only 80 
characters on a line, so most 
printers can be used. 

This is a ledger?? 
A conventional ledger page 
consists of titled columns of 
numbers. Since 12 columns of 
numbers ranging to 999,999.00 
would need at least 120 character 
spaces per line, printers limited to 80 
characters per line could not use this 
format. Furthermore, unless 
condensed-width characters were 
used, this would require paper wider 
than 8% inches, the standard width, 
also eliminating many printers. 
Although the Okidata Microline-80 
can provide 132 condensed 
characters on 8 inch paper, the 
maximum TAB allowed by TRS-80 
BASIC is 64, so complex 
PRINTUSING strings, or other 
special programming techniques, 
would be necessary to print 120 or 
more characters on a single 
formatted line. Another limitation 
is the fact that the TRS-80 screen 
only shows 64 characters on a line. 
For all these reasons, and perhaps a 
few I've forgotten, I chose to use a 
totally unconventional format, as 
shown in the sample run. 
Ledger format 
This format is easy to read, 
compact and complete. Each line 
contains the date, check number (or 
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Business Application- 

"-" if cash), the amount, to whom, 
purpose and column number two to 
twelve. The amount is shown in two 
decimal places, with aligned 
decimal points. When totals are 
requested, columns one through six, 
with complete headings (up to 14 
characters per heading) appear 
along the left side of the printer 
sheet, and columns seven through 
12 appear in the center of the sheet. 
All totals include two decimal 
places, with aligned decimal points. 
The maximum amounts and totals 
are 99,999,999.99. After the page 
totals, you can add additional 
entries, additional pages, and 
additional months. Following page 
totals are monthly totals. After 
any monthly total you can request a 
grand total. These ledger sheets 
replace a ledger book; just clip them 
together to make your own "book". 
If you ever need a breakdown of a 
page total, just look at the column 
numbers along the right side of the 
page. If you want the items which 
created the total of column two, for 
example, look for a "2" in the right 
column and those are the items, 
including date, check number, 
purpose and amount. Isn't that 
simple? 

■ Running the program 
Optional screen instructions 
provide the essential information as 
a refresher if you haven't used the 
program for some time. Practice 
with the column headings in DATA 
statements 3060 to 3090, then 
change them for your own needs. Be 
sure there are three column numbers 
and headings per DATA line, for a 
total of twelve - and don't forget the 
commas between the entries, as 
shown. Each column heading title is 
limited to 14 characters - more than 
that will not appear on the printer 
(although they might on the screen). 
Column one is always TOTAL. The 
headings shown in the listing and 
run are the ones I used for Blechman 
Enterprises. 

If you are starting at the 
beginning of a year, bypass the 
"previous grand totals" option. If 
you wish to enter previous totals, the 
program will request an entry for 
each column, by column number 
and heading. Next, the screen clears 
and shows all categories by title and 
number, followed by a reminder of 
how to obtain page totals. A dotted 
line is drawn on the screen, followed 
by the last printed line number and 
the contents of that line. This lets 
you know where you are on the 
printed page, so you can command a 
total if you're getting near the 
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bottom of the page - around line 55. 
If you pass line 58, the printer will 
automatically advance to the next 
page so you don't have totals split 
between two pages. 

Next come input prompts and 
verification. When entering "To 
whom-purpose" information, don't 
type beyond the end of the screen 
line or the printer format might be 
disrupted for that lind. You can get 
page totals by typing TOTAL,0,0 
and ENTER at any date, check#, 
amount? prompt, and this is 
followed by additional entries, or 
additional pages of monthly totals. 
You can also get grand totals after 
any monthly totals. Input a minus 
amount to subtract an entry error. 
The program is written for the 
TRS-80 Model I Level II or Model III 
BASIC, and will easily fit in 16K of 
RAM. No disks are required and no 
information is saved except on the 
printed ledger sheet. The program 
can be applied to other microcom- 
puters, though formatting might 
need to be modified (since the 
PRINTUSING line formatting 
statement is not available on some 
other micros). The PEEK and POKE 
commands in this program are used 
merely to identify and reset printer 
line numbers and are not essential 
for program operation. Double 
precision is used for all ledger 
entries, or numbers above 9999.99 
would lose penny accuracy, and 
amounts over 99,999.99 would lose 
dollar accuracy! 

Modular Program 
The program is mostly modular. 
Lines 100 - 190 initialize 300 bytes of 
string space, define the double 
precision variables, dimension 
twelve A$-array locations (actually, 
thirteen if you include A$(0), which 
is not used), define strings for 
PRINTUSING, initialize program 
variable values at zero, and set the 
printer line counter to the first line. 
Lines 200 - 220 and 7000 - 7300 
provide optional screen instructions. 
Lines 300, 310 and 3000 to 3090 
display the column numbers and 
headings held in easily-changed 
DATA statements. 

Lines 400 - 420 and 4000 - 4140 
allow you to enter the grand totals 
from your last run. This saves the 
trouble of making a data tape at the 
end of each run to preserve totals for 
later use. It's simpler and easier to 
just hand-enter the grand totals 
from your last ledger sheet than to 
try and locate and load a data tape 
probably made months before! With 
this technique you can stop your 
ledger anytime and start again with 
previous totals as a new beginning. 



If your business is small, you may 
not need or want to bother with 
monthly totals - just use page totals 
and grand totals, and ignore the 
monthly totals. If you do enter 
previous grand totals, lines 2170 
2190 and 1680 - 1730 print these 
totals at the top of the printer page, 
so you have a record of starting 
values. 

Lines 500 - 540 initialize variables 
for a new page and lines 550 - 560 
provide printer headings. Lines 600 
670 display column numbers and 
headings and the "page totals" 
command, draw a dotted line 
across the screen and display the 
last line entry. (On a new page, the 
last line entry is blank, with a 
amount). Lines 1000 - 1060 provide 
multiple input prompts and 
verification. Lines 1070 - 1240 print 
the input information and add the 
column entries. Lines 1500 - 2030 
print page, monthly or grand totals 
with column headings. The 
PRINTUSING statements use S$ 
and N$ defined in lines 130 and 140 
for proper formatting and decimals. 
Lines 2040 - 2250 provide options 
for more page entries, additional 
pages, monthly totals, grand totals, 
another month and program 
termination. Line 10000 allows you 
to make two cassette copies with 
your own custom headings in DATA 
lines 3060 - 3090, just type 
RUN10000 and ENTER with the 
recorder ready to record. (Note: For 
Model III, change OUT 255,4 to 
OUT 236, 2). 

Fire your accountant? 
This program is not intended to 
replace your bookkeeper or 
accountant if your business requires 
a finer breakdown of expenses or 
must handle payroll deductions. I 
have found it entirely practical for 
my Amway business, my software 
business, and to define and total 
deductible household expenses. It 
could also be used to determine 
home budget allocations and 
performance. And, of course, it could 
be used to tabulate and total various 
incomes as well as expenses. It is 
easy to learn, "crashproof (just 
GOTO600 without loss of any 
totals), and it is versatile. 

This program is available from 
the author on a 500-baud cassette for 
Model I or III, with step-by-step 
documentation, for $10 postpaid in 
the USA. It is also included as one of 
five "Small Home-Business 
programs" on cassette with 
documentation, for $25 ppd. USA 
from the author. CA residents add 
6% sales tax. M 



Not all Spelling Checkers are the same 



MICROPROOF 



T.M 



stands out! 



EASY TO USE: Prepare your text on any 2-80 based micro- 
computer, using any of a number of popular word 
processing programs. When you are finished, enter the 
appropriate command, and MICROPROOF proofreads 
your document, displaying misspellings and typos on the 
screen. Then correcting MICROPROOF can display each 
error separately, < requesting you to enter the correct 
spelling for each. You are also given the option of displaying 
errors in context or adding words to MICROPROOF's 
50,000 word vocabulary. Finally, MICROPROOF corrects 
your document. All in less than a minute. 



SELECT APPROPRIATE RESPONSE: 



CORRECT MISSPELLED WORD; 
LEAVE WORD "AS IS": 
DISPLAY WORD IN CONTEXT: 
ADD WORD TO DICTIONARY: 
EXIT: 



ENTER CORRECT WORD 
HIT <ENTER> KEY 
? 



I 



WORD: 
RESPONSE: 



(Your error! 






SPEED is the single most important factor in a dictionary 
program. All dictionary programs will find your potential 
errors but if the program is too slow, you are not likely to 
use it MICROPROOF's speed is outstanding. It can proof- 
a several page letter in 20 seconds. 



LOW PRICES: Standard MICROPROOF is available for 

either $89.50 (TRS80® Models I or HI ) or 
$149.50 (CP/M® TRS-80® Model II and all others). The 
optional correction feature can be added at any time for 
an additional $60.00. Optional patches to integrate 
MICROPROOF into your word processing software can 
also be added at any time for an additional $35.00. 
(Integration patch not needed for Wordstar®.) 



MICROPROOF'S FULL 50,000 WORD VOCABU- 
LARY saves you time and allows you greater confidence 
in the lists of potential errors that MICROPROOF 
identifies. The mini-dictionary programs, with their 10,000 
and 20,000 word vocabularies, have many correctly spelled 
words omitted from their vocabularies. Consequentially, 
they identify as potential "errors" many words that are 
actually spelled correctly; five to ten times as many such 
words as does MICROPROOF. So, when you use 
MICROPROOF you will have far fewer extra words to 
evaluate, a major time savings. There will be less need to 
look up words in order to verify that they are in fact spelled 
correctly. The extra 30,000 words in MlCROPROOF's 
vocabulary assures you confidence in the error lists that 
MICROPROOF generates. 

There are other proofreading programs available to choose 
from. Since MICROPROOF became available in December 
of 1980, a number of companies have announced programs 
with small dictionaries. It took us almost two years to 
develop MICROPROOF. During that time we were able to 
compress our full 50,000 word dictionary into a manageable 
size (fits on one single density 5 l A inch disk). And we were 
able to design a proofing program which operates 
remarkably fast. The chart below illustrates the compara- 
tive advantages of MICROPROOF. 

ADVANTAGES OF MICROPROOF 



MICROPROOF 

DICTIONARY 

SOFTWARE 



OTHERS 

(Mini* 

Dictionaries) 



DICTIONARY SIZE 

DISK SPACE 

REQUIRED 

FOR DICTIONARY 

DICTIONARY 
ENLARGEMENT 

SPEED— 400 Words 

SPEED— 3,000 Words 

CORRECTION 

FEATURE 



50,000 Words 


20,000 Words 


70,000 BYTES 
(fits easily on 
one 5*4" disk) 


170,000 BYTES 

* 


VIRTUALLY 
UNLIMITED 


EXTREMELY 

LIMITED 


20 Seconds 


1 to 5 Minutes 


I Minute 


2 to 10 Minutes 


Optional 


Not Available 




See your local microcomputer dealer or write fo. 



CORNUCOPIA SOFTWARE 



Post Office Box 5028, Walnut Creek, California 945% 



(415) 893-0633 



Business Application. 



The following lines are replacement lines to 
make the 1 2-column ledger program work with the 
Model II. 



\ ##,###, nun. 



130 s$ = "\ 
nn \ 
#•• 

190 PL=1 

500 60SUB 5000 : CLS S SYSTEM"T" : LPRI 
NT " BEGINS NEW PAGE..." : LPRINT 
it ii 

670 PRINT : PL = PL + 1 s PRINT "LINE # 

"; 'pl-1; ":"; D1$; "/'; C1$; V; A1; " 

,"; W1$; "...COLUMN "; X1 

5000 REM * LINE 5020 ADVANCES PRINTER T 

NEXT PAGE * 

5010 REM * ASSUMES 66 LINES PER PAGE MA 

XIMUM * 

5020 IF PL>58 THEN SYSTEM "T" : PL=1 : 

RETURN 

5030 REM 

5040 RETURN 

5050 REM 

10000 SAVE "TWELCOL/BAS" 



Program listing for 1 2-Column ledger program for 
Models I, II, and HI. 

100 REM * COPYRIGHT FRED BLECHMAN 1981 

* VERSION 5/4/81 * 

110 CLEAR 300 

120 DEFDBL A - L, S : DIM A$(12) 

130 S$ = "% % M,UM,1HM. 

nn % % nn,nu,mn 

uo n$ = "M,nm,nM.w u 

150 REM * INITIALIZE VALUES AT ZERO * 

160 A = ; B = ; C = : D = : E = 
0: F = 0;G = 0: H = 0: 1 = : 
j=0:K = 0:L = 0:M = 0: P = 
• R = : S = : W = : X = : Y 

= 
170 S1 = : B1 = : C1 = s D1 = : 
E1 = : F1 = : G1 = s H1 = : 

11 = : J1 = : K1 = s L1 = 
180 S2 = s B2 = : C2 = s D2 = s 

E2 = s F2 = s G2 = : H2 = : 

12 = : J2 = s K2 = s L2 = 
190 POKE 16425, 1 : REM * SETS PRINTER 

LINE COUNTER AT FIRST LINE * 
200 CLS s PRINT : PRINT " 

12-COLUMN LEDGER" : PRINT 
210 INPUT "DO YOU WANT INSTRUCTIONS (Y/ 

N)"" A$ 
220 IF LEFTS <A$, 1) = "Y" GOTO 7000 



300 CLS s PRINT "THESE ARE THE HEADINGS 
ENTERED IN DATA LINES 3060 TO 3090." 

310 PRINT " .- CHANGE THEM IF N 

ECESSARY " : GOTO 3000 

400 CLS : PRINT : PRINT " ***** TUR 

N ON PRINTER OR PROGRAM WILL 'FREEZE 1 

i i *****" 
410 PRINT : INPUT "DO YOU HAVE PREVIOUS 
*** GRAND TOTALS *** TO ENTER (Y/N)" 

; 0$ 
420 IF LEFTS (0$, 1) = "Y" GOTO 4000 
500 GOSUB 5000 : CLS : LPRINT " " : LPR 

INT " BEGINS NEW PAGE..." : LPRI 

NT " " 
510 A = : B = : C = 0:D = 0:E = 
OsF = 0:G = 0:H = 0:I=0: 

J=0:K = 0:L = 0:S = 
520 IF LEFT$(R$, 1) = "Y" THEN S1 = s 
B1 = : C1 = : D1 = : E1 = : 

F1 = 
530 IF LEFTS (R$, 1) = "Y" THEN G1 = : 
H1 = : 11 = : J1 = : K1 = : 

L1 = 
540 X = 0sY = 0sP = 0sM = 0:R = 

: R$ = "" 
550 LPRINT "DATE"; TAB(6)"CHECK#"; TAB( 

19) "AMOUNT"" 
560 LPRINT TAB(32)"TO WHOM AND PURPOSE" 

; TABC60) "COLUMNS" 
600 CLS : PRINT A$(1) TAB(32)A$(7) 
610 PRINT A$(2) TAB(32)A$(8) 
620 PRINT A$(3) TAB(32)A$(9) 
630- PRINT A$(4) TAB(32)A$(10) 
640 PRINT A$(5) TAB(32)A$(11) 
650 PRINT A$(6) TAB(32)A$(12) 
660 PRINT "....FOR PAGE TOTALS; TO 

TAL,0,Q ENTER" 
665 PRINT " ■ 



670 PRINT : PRINT "LINE #"; PEEKC16425) 
- 1; ":"; D1$; ","; C1$; V; A1; ", 

"; U1$; "...COLUMN "; X1 
1000 GOSUB 5000 : PRINT s PRINT "DATE,C 

HECK#,AMOUNT"; s INPUT D$, C$, A 
1010 IF D$ = "TOTAL" THEN 1500 
1020 PRINT "TO WHOM - PURPOSE 

„.„"• : INPUT W$ 
1030° INPUT " COLUMN"; X 
1040 IF (X < 2) +(X > 12) PRINT "COLUMN 
ENTRY ERROR I! ONLY 2-12 VALID" s GOT 

1030 
1050 INPUT "CORRECT? (Y/N)"; Z$ 
1060 IF LEFT$(Z$, 1) = "N" GOTO 600 
1070 D1$ » D$ : C1$ = C$ : A1 = A : W1$ 
= W$ s X1 = X 
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DOSPLUS 






^ Double density software is 
jsL: definitely here, but con- 
version of your old single density 
software library is unnecessary. 
With *DOSPLUS from Advanced 
Operating Systems, for your 
tTRS-80 Model I or III, both 
single and double density 
diskettes can be utilized. 
DOSPLUS, when combined with 
a double density controller 
board, essentially converts your 
Model I to a Model III at a 
fraction of the cost of a new 
Model III. If, however, you wish 
to transfer some of your single 
density software over to double 
density and you own a double 
density controller board, this is 
easily accomplished under 
DOSPLUS with a single 
command. When used with a 



Model III, DOSPLUS allows the 

user to SAVE, COPY and 

FORMAT single density 

diskettes. 

DOSPLUS offers you greater 

speed with its ability to chain 

functions and to accommodate 

various logical record lengths 

for the ISAM programming 

techniques. 

The DOSPLUS package also 

contains an easy-to-read 

operator's manual designed to 

help you realize the full 

potential of your computer. 



Give your TRS-80 Model I or III 

that added plus with DOSPLUS 

from Advanced Operating 

Systems, available as DOSPLUS 

3. 3D (double density) or 



DOSPLUS 3.3S (single density) 
for Model I, or DOSPLUS for 

Model III. 

Now available at your local 

software dealer, or call 

1 -800/348-8558 to order. 

MasterCard and VISA accepted. 

(Indiana residents call 
1-219/879-4693). 

DOSPLUS III #26062 
DOSPLUS 3.3D 26063 
DOSPLUS 3.3S 26064 

160+ PAGE MANUAL 
AVAILABLE SEPARATELY 

ADVANCED 

OPERATING 

SYSTEMS 

450 St. John Road 
Michigan City, IN 46360 



Business Application. 



1080 S = S + A 

1100 LPRINT D$; TAB(6)C$; TAB(12); USIN 
6 N$; A; : LPRINT TAB(28)W$; TAB(62)X 

1110 REM * SELECT COLUMN AND ADD TO PRE 

VIOUS TOTAL * 
1120 ON X - 1 GOTO 1130, 1140, 1150, 11 

60, 1170, 1180, 1190, 1200, 1210, 122 

0, 1230 
1130 B = B + A : GOTO 1240 
1140 C = C + A z GOTO 1240 
1150 D = D + A : GOTO 1240 
1160 E = E + A : GOTO 1240 
1170 F = F + A s GOTO 1240 
1180 G = G + A : GOTO 1240 
1190 H = H + A : GOTO 1240 
1200 I = I + A : GOTO 1240 
1210 J = J + A : GOTO 1240 
1220 K = K + A : GOTO 1240 
1230 L = L + A 
1240 GOTO 600 
1500 GOSUB 5000 : PRINT : PRINT "* PAGE 

* TOTALS BEING PRINTED... ." 

1510 LPRINT " " : LPRINT " ,f : LPRINT " 

* PAGE TOTALS *" : GOTO 1540 
1520 GOSUB 5000 : PRINT : PRINT "** MON 

TH ** TOTALS BEING PRINTED. .. ." 
1530 LPRINT " " s LPRINT " " : LPRINT " 

** MONTH TOTALS **" 
1540 IF M = 1 GOTO 1680 
1550 IF P = 1 GOTO 1620 
1560 LPRINT USING S$; A$(1); S; A$(7); 

G 
1570 LPRINT USING S$; A$(2); B; A$<8); 

H 
1580 LPRINT USING S$; A$(3 

I 
1590 LPRINT USING S$| A$(4 

J 
1600 LPRINT USING S$; A$(5 

K 
1610 LPRINT USING S$; A$(6 

L : GOTO 2000 
1620 LPRINT USING S$; A$(1 

G1 
1630 LPRINT USING S$; A$(2 

H1 
1640 LPRINT USING S$; A$(3 

11 
1650 LPRINT USING S$; A$(4 

• J1 
1660 LPRINT USING S$; A$(5 

; K1 
1670 LPRINT USING S$; A$(6 
; L1 : GOTO 2000 



); C; A$(9); 
); D; A$(10); 
); E; A$(11); 
); F; A$(12); 
); S1; A$(7); 
); B1; A$(8); 
); C1; A$(9); 
); D1; A$(10) 
); E1; A$(11) 
); F1; A$(12) 



1680 LPRINT USING S$; A$(1); S2; A$(7>; 

G2 
1690 LPRINT USING S$; A$(2); B2; A$(8); 

H2 
1700 LPRINT USING S$; A$(3); C2; A$(9); 

12 
1710 LPRINT USING S$; A$(4); D2; A$(10) 

; J2 
1720 LPRINT USING S$; A$(5); E2; A$(11) 

■ K2 
1730 LPRINT USING S$; A$(6); F2; A$(12) 

; L2 
2000 PRINT : PRINT 
2010 IF P = 1 GOTO 2110 
2020 IF M = 1 GOTO 2200 
2030 PRINT 
2040 INPUT "DO YOU WANT TO ADD MORE ENT 

RIES (Y/N)"; Y$ 
2050 IF LEFT$(Y$, 1) = "Y" GOTO 550 
2060 S1 = S1 + S l B1 = B1 + B : C1 = C 
1 + C : D1 = D1 + D : E1 = E1 + E : F 
1 = F1 + F 
2070 G1 = G1 + G s H1 = H1 + H : 11 = I 
1 + I : J1 = J1 + J : K1 = K1 + K : L 
1 = L1 + L 
2080 PRINT s INPUT "ADDITIONAL PAGES TH 

IS MONTH (Y/N)"; W$ 
2090 IF LEFT$(W$, 1) = "Y" GOTO 500 
2100 P = 1 : GOTO 1520 
2110 S2 = S2 + S1 : B2 = B2 + B1 : C2 = 
C2 + C1 s D2 = D2 + D1 : E2 = E2 + E 
1 : F2 = F2 + F1 
2120 G2 = G2 + G1 : H2 = H2 + H1 : 12 = 
12 +H s J2 = J2 + J1 : K2 = K2 + K 
1 : L2 = L2 + L1 
2130 M = 1 
2140 PRINT 2 INPUT "*** GRAND TOTALS ** 

* (Y/N)"| A$ 
2150 IF LEFT$(A$, 1) = "Y" GOTO 2170 
2160 GOTO 2200 
2170 GOSUB 5000 : PRINT : PRINT "*** GR 

AND TOTALS *** BEING PRINTED " 

2180 PRINT ; P = 

2190 LPRINT " " : LPRINT " " : LPRINT " 

*** GRAND TOTALS ***" : GOTO 1540 
2200 PRINT s INPUT "ANOTHER MONTH (Y/N) 

"; R$ 
2210 IF LEFT$(R$, 1) = "Y" GOTO 500 
2220 CLS : PRINT : PRINT : PRINT : PRIN 

T 
2230 PRINT " END OF PROGRAM - SE 

E YOU AGAIN SOMETIME...." 
2240 PRINT : PRINT : PRINT : PRINT 
2250 END 

3000 REM * ENTER COLUMN HEADINGS (14 CH 
ARACTERS EACH, MAX.) * 
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3010 FOR Z = 1 TO 12 

3020 READ A$(Z) : PRINT TAB(10) "COLUMN 

"; A$(z) 
3030 NEXT Z 
3040 PRINT : INPUT "***** PRESS ENTER T 

CONTINUE..."; A$ 
3050 GOTO 400 
3060 DATA 1 -TOTAL AMOUNT, 2-MERCHANDISE 

, 3-PARTS/SAMPLES 
3070 DATA 4-PROMOTION, 5-DELIV/POST, 6- 

OFFICE EXPENSE 
3080 DATA 7-UTILITIES, 8-TAX/INSUR/LIC, 

9-PETTY CASH 
3090 DATA 10-NOT USED # 11 -NOT USED # 12- 

DRAW 
4000 PRINT : PRINT " ENTER PREVIOUS 

*** GRAND TOTALS *** :" 
4010 PRINT 

4020 PRINT A$(1); : INPUT " TOTAL"; S2 
4030 PRINT A$(2); : INPUT " TOTAL"; B2 
4040 PRINT A$(3); : INPUT " TOTAL"; C2 
4050 PRINT A$(4); : INPUT " TOTAL"; D2 
4060 PRINT A$(5); : INPUT " TOTAL"; E2 
4070 PRINT A$(6); : INPUT " TOTAL"; F2 
4080 PRINT A$(7); : INPUT " TOTAL"; G2 
4090 PRINT A$(8); : INPUT " TOTAL"; H2 
4100 PRINT A$(9); : INPUT " TOTAL 8 '; 12 
4110 PRINT A$(10); : INPUT " TOTAL"; J2 

4120 PRINT A$(11); • INPUT " TOTAL"; K2 

4130 PRINT A$(12); : INPUT " TOTAL"; L2 

4140 M = 1 : GOTO 2170 

5000 REM * LINE 5050 ADVANCES PRINTER T 

NEXT PAGE * 
5010 REM * ASSUMES 66 LINES PER PAGE MA 

XIMUM * 
5020 PL = PEEKC16425) 
5030 IF PL > 58 GOTO 5050 
5040 RETURN 
5050 FOR PE = 1 T0C66 - PL) : LPRINT " 

" : NEXT PE : POKE 16425, 1 : RETURN 

7000 CLS : REM * INSTRUCTIONS WHEN REQU 
ESTED * 

7010 PRINT : PRINT " THIS PROGRAM, 

USED WITH YOUR PRINTER, PRODUCES AN I 

NCOME" 
7020 PRINT "OR EXPENSE LEDGER FOR HOME 

OR SMALL-BUSINESS USE. YOU MUST" 
7030 PRINT "HAVE AN 80-COLUMN PRINTER, 

BUT NO DISK IS REQUIRED. . . . ." 
7040 PRINT : PRINT " THE PROGRAM KE 

EPS TRACK OF 12 * COLUMNS'. COLUMN 1 I 

S" 



7050 PRINT "ALWAYS THE AMOUNT. COLUMNS 
2-12 ARE THE CATEGORIES THIS AMOUNT" 

7060 PRINT "MIGHT FALL INTO. COLUMN HEA 
DINGS ARE ASSIGNED IN DATA LINES" 

7070 PRINT "3060-3090, WHICH YOU CAN CH 
ANGE FROM THE KEYBOARD BEFORE" 

7080 PRINT "ACTUALLY USING THE PROGRAM. 
HOWEVER, FIRST PRACTICE WITH THE" 

7090 PRINT "HEADINGS ALREADY ASSIGNED,,. 



7100 PRINT : INPUT "PRESS ENTER TO CONT 

INUE OBBB "; A$ : CLS 
7110 PRINT : PRINT "ENTER THE FOLLOWING 

FOR EACH AMOUNTS 
7120 PRINT " DATE (MM/DD) . . . . . . . . . . 

---.-.......(COMMA) 

7130 PRINT " CHECK U ( OR USE - FOR 
CASH)...... (COMMA) 

7140 PRINT " AMOUNT (XXXXX.XX) . . . . . 

............ (ENTER) 

7150 PRINT " TO WHOM - PURPOSE. .... 

............ (ENTER) 

7160 PRINT " COLUMN # ( 2-12 ONLY!) 
............ (ENTER) 

7170 PRINT : PRINT "ENTER, ... .TOTAL,0,0 

.......FOR PAGE TOTALS" 

7180 PRINT : INPUT "PRESS ENTER TO CONT 
INUE......"; A$ : CLS 

7190 PRINT : PRINT " AS YOU CONFIRM 
EACH BLOCK OF INFORMATION REQUESTED 
BY THE" 
7200 PRINT "PROGRAM, A SINGLE LINE CONT 

AINING THIS INFORMATION IS PRINTED" 
7210 PRINT "ON STANDARD 8-1/2 INCH WIDE 

PAPER. PRINTER LINE NUMBERS ARE" 
7220 PRINT "SHOWN FOR EACH ENTRY SO YOU 

KNOW WHERE YOU ARE ON THE PRINTED" 
7230 PRINT "PAGE. WHEN YOU REQUEST TOTA 

LS, EACH COLUMN HEADING WILL BE" 
7240 PRINT "PRINTED WITH THE TOTAL FOR 

EACH COLUMN FOR THAT PAGE. YOU CAN" 
7250 PRINT "THEN REQUEST ADDITIONAL PAG 

ES. IF NOT, MONTHLY TOTALS WILL BE" 
7260 PRINT "PRINTED. YOU THEN CAN DO AN 

OTHER MONTH, OR PRINT GRAND TOTAL'S" 
7270 PRINT "OR EXIT THE PROGRAM..... 

7280 PRINT : PRINT " THE FORMAT ALL 

OWS TOTALS TO $99,999,999,991!" 
7290 PRINT : PRINT " ** CRASH RECOVERY 
: TYPE.... GOT0600 ....AND ENTE 

R." 
7300 PRINT : INPUT "PRESS ENTER TO CONT 

INUE.e.."; A$ : GOTO 300 
10000 CSAVE "1" : OUT 255, 4 : FOR I = 
1 TO 2000 : NEXT s CSAVE "1" 
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VOYAGE OF THE 

VALKYRIE 




By Leo Christopherson from AOS 
Combine the animation and music techniques 
pioneered by Christopherson with the chal- 
lencte of his first fast-moving arcade game 
and" you have VOYAGE TO VALKYRIE! 

You speed through a magical maze guarded by 
ferocious birds that swoop down to attack if 
you don't get them first. To list all the play 
and options of this exciting game would take 
the 16 pages of instruction included. 

Tape (TRS-80 16K) $34.95 

Disk (TRS-80 16K, Apple 48K) $39.95 




DUEL 

«N» 

DROiDS 



By Leo Christopherson from Acorn 
Teach your "animated android" how to wield a 
laser sword! Leo Christopherson, author of 
"Android NIM," "Dancing Demon," "Voyage to 
Valkyrie" and other animations, has developed 
a new type of animation and high-quality 
sound in this work. 

Starting out as a lowly clown, you teach your 
'droid to use a laser sword by controlling its 
movements — advance, attack, even retreat if 
necessary. Then you enter the tournament 
against the program's skilled 'droid. Revel in 
the fanfares of the victorious — or hear the 
funeral dirges of the defeated! Entertainment 
for all aqes. 



16K protected tape. 
16K protected disk. 



.$14.95 
.$20.95 




From Med Systems 

You are sitting alone at 2 AM. Your eyes are 
bloodshot as you peer into your computer's 
screen and cry, "I must be CRAZY!" If this 
has never happened to you, you've never 
tried ASYLUM. It's Med Systems most ambi- 
tious 3-D graphics adventure yet! 

ASYLUM places you on a cot in a small 
(padded?) room. Periodically the janitor lobs a 
hand-grenade through the window. What you 
do next could mean escape — or disaster. 



BATTLE OF SHILOH 

From Strategic Simulations 
Now Civil War buffs can engage in a realistic 
simulation of a major battle. Marching through 
the war-torn countryside, strategically using 
the forests, creeks, hills for defense, you re- 
create every facit of the battle on a hex-grid 
map. If you had been in charge, would we 
still be whistling "Dixie?" 

16K tape. ..$24.95 

Visit our other stores: Seven Corners 




16K tape... $14. 95 
32K disk. ..$19. 95 

Also order DEATHMAZE 5000, Med System's 
challenging 3-D maze game. Same prices as 
above. 

FORBIDDEN PLANET I 

By Wm. Demas from Fantastic Software 
The first TALKING adventure! With skill, 
luck, and tenacity — and a little help from 
your chatty TRS-80 — you may survive Part 
One of this multipart adventure! You don't 
need a voice synthesizer, this program talks 
to you via the cassette port. And it's a good 
thing it does, 'cause otherwise you'd get 
mighty lonesome on desolate FORBIDDEN 
PLANET. 

48K disk... $39. 95 

LOST COLONY 

By David Feitelberg from Acorn 
It's the world's first deep space colony and 
you are the economic manager. A remarkable 
simulation, LOST COLONY arms you with maps 
and charts as tools for resource management. 
You assign human and robotic labor, explore 
new land, and set production quotas. At the 
same time you must determine equitable pay 
scales and taxes. 

Communicate through your model I or III using 
full sentences or short commands. A chal- 
lenging game, it might give you insight into 
real life management as well. 

16K protected tape... $19. 95 
32K protected disk... $19. 95 

Center- Fails Church, VA & W.Bell Plaza 



Crush,Cramble 
and Chomp! 

From Epyx 

It's a monster movie, and you are the 
monster! You can be The Glob, Kraken, Man- 
tra, Mechismo, Arachnis, or Goshilla — or 
even design your own "custom" monster (disk 
version only). This hilarious action game is 
loaded with graphics and sound as you prac- 
tice your villany. With 6 monsters, 4 cities, 
and 5 game objectives, you get a choice of 
more than 100 possible scenarios. A monster's 
life is not all carnivorous crunching, though: 
The combined resources of the police, sci- 
ence, and armed forces are bent on your 
destruction. 

TRS-80 (16K tape or 32K disk), Apple (48K 
disk)... $29. 95 

TIGERS IN 

THE SNOW 

From Strategic Simulations 
Highly sophisticated simulation of World War 
ll's Battle of the Bulge. Your troops are en- 
camped in the French forests of the Arden- 
nes, ready for the first wave of this key 
assault. The battle requires complex strat- 
egies and a good grasp of the overall situa- 
tion : troops, artillary, terrain, support, and 
timing. Are you up to it? 

16K tape... $24. 95 

Unbelievable Realtime 3-D Graphics! 



FLIGHT SIMULATION 

From Sub-Logic 

The wait is over! If 3-D graphics seem impos- 
sible on the low resolution TRS-80, you 
haven't seen this brilliant program. During 
FLIGHT SIMULATION, you instantly select 
instrument flight, radar, or a breathtaking 
pilot's-eye-view. But be sure to strap your- 
self in — you're liable to get dizzy! 

Once you put in some air time learning to fly 
your TRS-80, head for enemy territory and 
try to bomb the fuel depot while fighting off 
five enemy warplanes. Good Luck! 

NOW FOR MODELS I Sill! 
16K tape... $25. 00 
32K disk... $33. 50 

6600 Security Blvd. * Baltimore, MD 



TO ORDER CALL TOLL FREE 800 424-2738 cFaw&m, 



THE PROGRAM STORE 

4200 Wisconsin Avenue NW, Dept. 8 1. Box 9609 
Washington, D.C. 20016 



MAIL ORDERS: Send check or M.O. for total purchase 
price, plus $1.00 postage & handling. D.C. residents, add 
6% tax. Charge card customers: include all embossed 
information on card. 



Get the most from your micro with 
software and accessories from one of 
the world's largest selections. 



The 

oogram 
Store 



800 424 -2738 





By Sparky StarksTrom Adventure Int. 
As mercenary and galactic police officer, you 
must maintain the condition and control of all 
parts of your spacecraft. You sit at the con- 
trols while peering out of the digital space- 
view port. Suddenly something appears on 
your screen: is it a Starpirate or a friendly 
merchant ship? You can't tell yet, and at this 
speed you may have only a fraction of a 
second to make an attack /no attack decision. 

Model I Sill, 16K tape. .. $24.95 
Model I disk version $29.95 



By Philip Oliver from Adventure Int. 
You must use your twin silos of ABMs to fend 
off barrage after barrage of enemy missiles 
that rain down toward your cities. As your 
skill increases so does the difficulty and 
speed of this machine language arcade game. 
Watch the skies and may your aim be true! 
MISSILE ATTACK has sound and fast-moving 
graphics galore. 

16K tape... $14. 95 32K disk. .. $20.95 




By Wall £ Moncrief from Adventure Int. 
You get a vast lunar landscape, graphically 
depicted in both long range and close up, 
with many choices for landing sites. Choose a 
more difficult site and get more points — if 
you can land successfully. You have complete 
control of your LEM via main engines and 
small side thrusters, and a successful landing 
is heralded with a flag raising ceremony. 
Great graphics and sound add to the realtime 
challenge and fun. 

16K tape. ..$14. 95 



vie* SCARFMAN 

From Cornsoft Croup 

Action-filled arcade game that pits you against 
the monsters. Race your Scarfman around a 
maze, gobbling up scoring dots. You are pur- 
sued by five monsters: if you eat a "+" they'll 
lower their eyes and you can eat them, other- 
wise they'll eat you! 

With exciting graphics and sound, SCARF- 
MAN may be played using the keyboard or 
Alpha Product's Joystick. WARNING : MAY BE 
HABIT-FORMING! 
Tape. ..$15.95 
Disk (specify mod. I or I II) .. .$19.95 



VOICE 
Sound Effects 

By Hogue & Konyu from Big Five 
One of the top names in TRS-80 arcade games 
adds a new dimension: voice' sound effects! 
It's you against the robots in this fast- 
-moving shoot-em-up. Electrified Mazes and 
the "Flagship" complicate things as you stalk 
the evil androids. 

The innovations built into ROBOT ATTACK 
take your TRS-80 near the limits of its capa- 
bilities. You MUST see and hear it! 

16K tape $15.95 32K disk $19. 95 



NVADERS^ SPACE COSMIC FIGHTER 



By Carl Miller from Acorn 

A fast machine language approach to this 

classic (and addictive) space game. The 

aliens drop bombs, move around, and try to 

overrun your bases. 

You choose the speed, enemy bomb frequency 

and accuracy, and how many shots and bases 

you have. Unlike other games of this type, 

you can move your base and simultaneously 

fire at the invaders. Fun for all ages and skill 

levels, it has full sound effects for even more 

excitement. 

16K protected tape $14.95 

16K protected disk $20.95 

SUPER NOVA 

By Hogue S Konyu from Big Five 
Asteroids surround your ship. You must shoot 
the asteroids, as well as any of the five types 
of alien spaceships. Use your thrusters for 
full movement and rotation of your ship — if 
you are overwhelmed, you can even jump to 
hyperspace! Written in fast machine code with 
superb graphics, this game is GREAT! 
16K tape $15.95 32K disk $19. 95 



By Hogue 6 Konyu from Big Five 
Terrific sound, graphics and unique chal- 
lenges mark this space game a winner! While 
fighting off the alien convoys — each more 
skillful than the last — you must keep track 
of your rocket fuel or risk explosion. Finally 
your space station appears. Can you dock 
immediately, or is the station overrun by 
aliens? Find out by ordering Cosmic Fighter 
today. 

16K tape. ..$15. 95 32K disk. . . $19. 95 




METEOR 
MISSION 




By Hogue & Konyu from Big Five 
Six astronauts are stranded on a desolate 
planet. You must undock from your command 
module and maneuver your rescue shuttle 
through the asteroid field to save them. You 
can only save one at a time, and each landing 
burns away parts of your landing sites. 
Order this realtime action game now or live 
with the astronauts' pitiful screams forever. 
16K tape. ..$15.95 32K disk. . . $19. 95 



By Steven Kearns from Acorn 
Gigantic antimatter rocks appear on the Tac- 
tical Display Screen of your spacecraft. You 
blast away with lasers and they just explode 
into smaller chunks. To score in this fast ar- 
cade game with sound, you must destroy the 
rocks. To stay in the game at all, you must 
avoid them! 

To add to your woes, time bombs appear peri- 
odically. If their timers reach zero — BOOM! 
And if that's not enough, the aliens will be 
glad to send out some spaceships loaded with 
antimatter torpedoes. Fire thrusters to move, 
shoot laser cannon, jump to hyperspace — 
anything to avoid the onslaught. One or two 
players can compete, with nine levels of diffi- 
culty. 

16K protected tape. . .$19.95 
16K protected disk. . .$19.95 

Prices Subiect to Change 




ATTACK 



By Hogue & Konyu from Big Five 
Unlike the usual " shoot-em -ups," Attack 
Force lets you control both speed and direct- 
ion as you maneuver all over the screen in 
search of the alien Ramships and Flagships. 
Enemy ships chase you everywhere, and the 
Flagships' lasers can fire in any direction! 
The Ramships can even impersonate your 
spacecraft, so don't look away even for an in- 
stant. Machine language action with sound. 

16K tape. ..$15. 95 32K disk. . . $19. 95 
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Business computing 




Joe! Makower, Washington, DC 



A business computer is like a 
tuning fork: when it works, it hums; 
when it doesn't, it's useless. 
Assuring that your system hums is 
most often a matter of how well you 
plan before you make your 
purchase. The planning stage, says 
one expert, is where 80 percent of the 
problems occur. 

Planning takes on ever- 
increasing importance these days, 
as the computer becomes not merely 
an essential element of nearly every 
business's financial, word- 
processing and other record-keeping 
processes, but is also linked with 
other parts of office systems- 
telephones and photocopiers, for 
example-to create an efficient and 
powerful information network. 

Integration of office equipment is 
going on at a feverish pace, with the 
computer taking center stage. 
Photocopiers are being replaced by 
"telecopiers"-computerized copying 
machines that instantaneously 
transmit copies to other copiers or to 
computer screens a continent away. 
"Filing" has virtually gone the way 
of the V-8 engine; it's being replaced 
by "information storage and 
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retrieval systems," which zip 
documents in and out of computers 
and micro-image devices whenever 
and wherever needed. 

Computers are shrinking both in 
size and in price. This year may well 
be remembered as the year of the 
"micro-microcomputer" - the port- 
able microprocessor that easily slips 
into a briefcase or, with some 
models, even a suit pocket. Such 
devices have the capabilities of 
computers that once filled the better 
part of a good-size room, and can be 
hooked into a telephone in a hotel 
room or phone booth for instant 
transmission of words or numbers 
to virtually anywhere in the world. 
A few models even feature tiny 
printing devices. 



And what we're seeing is just the 
tip of this Alice-in-Computerland 
iceberg. Earlier this year, a number 
of major breakthroughs in computer 
chips were announced, with up to 
one thousand separate circuits 
being crammed onto a quarter-inch 
computer chip. The new "supercom- 
puters" being developed are said to 
have ten to fifteen times the power of 
current models. 

In addition to going on business 
trips, business computers are 
staying home. If last year's buzz 
word was "telecomputing" (the 
transmission of computer data over 
telephone lines), this year's is 
"telecommuting"-computer hook- 
ups from office to home, allowing 
employers to tap labor pools that 



22 80-U.S. Journal, January, 1982 




ONEY 




MANAGER 

By Andrew P. Bartorillo 

A complete management tool for the home budget, this useful program helps keep track of your in- 
come and expenditures and provides an easy method of budget allocation. 

MONEY MANAGER answers the question, "Where does it all go?" by categorizing the outgo of your 
money in accounts that you design according to your needs. It provides a means of keeping complete 
and accurate records, including an itemization of your tax-deductible expenditures— you can imaqine 
the time savings at tax time alone! 

You can store information on up to 100 checkbook entries per month (250 with 48K) specify any 
automatic withdrawals (such as automatic mortgage payments), keep a separate list of tax- 
deductibles, and record expenses by category. Checks payable to charge card companies and other 
lump payments may even be broken up to be placed into the proper individual categories. If you have 
a hneprinter, MONEY MANAGER will provide formatted printouts by category and time period 



MONEY MANAGER requires a TRS-80* model I or 
this time and money saver now for only $39.95. 



with a minimum of 32K and one disk drive. Order 



ACORN PROGRAMS ARE AVAILABLE AT FINE COMPUTER STORES EVERYWHERE 



LOST COLONY 




EVEREST 
EXPLORER 



ASTROBALL 




By David Feitelberg 



It's the world's first deep space col- 
ony and you are the economic 
manager. A remarkable simulation, 
LOST COLONY arms you with 
maps and charts as tools for 
resource management. You assign 
human and robotic labor, explore 
new land, and set production 
quotas. At the same time you must 
determine equitable pay scales and 
taxes. 

Communicate through your model I 
or III using full sentences or short 
commands. A challenging game, it 
might give you insight into real life 
management as well. Available on 
16K tape or 32K disk for only $19.95 
each. 



By William Godwin & 
Don Knowlton 

EVEREST EXPLORER lets you 
challenge the world's highest 
mourtain without ever leaving 
home. You make all the decisions 
in this logistical simulation. 

You select the manpower, food, 
fuel, shelter and oxygen you need. 
Then manipulate your resources to 
outwit the elements and terrain, 
establishing ever higher encamp- 
ments. Will you reach Everest's 
29,028 foot summit— and return to 
tell about it? Just $19.95 for model I 
or III. Order on 16K tape, or the 32K 
disk version which includes a "save 
game" feature and other 
enhancements. 




By John Allen 

More features, thrills, and sound 
than even our famous PINBALL 
With ASTROBALL in yourTRS-80* 
model I or III the arrow keys 
become flipper buttons, the screen 
becomes the play board, and you 
become the "Pinball Wizard!" 

A flying saucer and moving space- 
ships add to the fun. Knocking out 
five meteors earns you an extra 
ball, while black holes swallow the 
ball in play. ASTROBALL's five skill 
levels will have all your family and 
friends lining up for the pinball ac- 
tion. Available on 16K tape or disk 
for just $19.95 each. 




(202) 544-4259 



Acorn 

Software Products, Inc. 

634 North Carolina Avenue, S.E., Washington, DC. 20003 



*Tradernark of Tandy Corp. 

ALL ACORN ENTERTAINMENT 

SOFTWARE SUPPLIED FOR 

TRS-80* MODELS I & /// 

MAIL ORDERS: Include $2.00 shipping & handling 
(D.C. residents add 6% sales tax). 
CHARGE CARD CUSTOMERS: Call (202) 544-4259 
for fastest service. 



Business computing 



could not otherwise be reached, such 
as the handicapped parents who 
prefer to work at home. In an age of 
increasing transportation costs and 
decreasing computing costs, this is 
truly the wave of the future. 

Trends like telecommuting and 
portable computers create a bold 
new challenge for today's managers 
and executives: how to manage a 
disparate and mobile network of 
indispensable business tools. One 
major roadblock to that challenge is 
the lack of knowledge of computers 
that plagues the upper echelons of 
most majors companies. That 
information gap often hinders every 
aspect of a firm's computer 
operations, from purchase to 
operation to security. 

Increasingly, however, executives 
are becoming more computer savvy. 
Many corporate-ladder climbers 
who have scarcely touched a 
typewriter keyboard are suddenly 
finding themselves in three-day- 
long classroom seminars that teach 
not only the ABC's of business 
computers, but often send managers 
home with new computer- 
programming hobbies. 

"The fear of computers is eroding 
at a very high rate," says John M. 
Nevison, a Concord, Massachu- 
setts, computer consultant who 
teaches "computer literacy" to 
business executives. "Most people 
know that it's only a matter of time 
before they'll have to learn." In 
Nevison's courses, which last for 
three days, students write and run 
their own computer programs 
within the first two hours of the first 
day. "We hit them between the eyes 
with it so fast that they don't have 
the chance to really get scared," 
says Nevison. 

Students of such courses walk 
away with a newfound respect for 
business computing, but also with 
two seemingly contradictory 
outlooks on the relationship 
between computers and their 
business. On one hand, the "new" 
technology might not be as complex 
and as scary as it once was; on the 
other hand, having better 
understood the technology, "going 
computerized" may not be as simple 
as it once appeared. 

Wait or buy now? 

Another benefit of computer 
courses can be to abolish some 
of the myths and misunder- 
standings of buying business 
computers. One point of confusion is 
whether, in the light of the fast- 



changing technology - with a new 
generation of machines appearing 
almost annually - it makes sense to 
buy now or to wait. It's a question on 
the minds of virtually all 
executives considering buying a 
computer. 

"I get this question all the 
time," says one California 
computer consultant. "It's a 
major source of puzzlement for 
me. 

Virtually no clear-thinking 
businessman would consider 
posing such a question for a car, 
a printing press or any other 
business tool. My answer is 
always the same: If you've 
determined that you need it 
now, buy it now." 

Granted, it's a dilemma. How 
do you resist the temptation to 
jump into the sleek world of 
computers, in light of the 
myriad ads and sales pitches 
you encounter at nearly every 
turn? It's difficult to stand back 
and ask, "What is this equipment 
really going to do to the way that I 
run this business?" All those fancy 
colors and graphs and bells and 
whistles of today's computers 
often make those important 
questions fall by the wayside. 

On the other hand, it may be 
unwise to resist the temptation. 
"It's crucial that you try out the 
new technology, or you're not 
learning to absorb it," says Amy 
D. Wohl, president of Advanced 
Office Concepts Corporation, 
an office-automation consul- 
tant firm in Bala Cynwyd, 
Pennsylvania. "If you decide to 
'wait until the market straight- 
ens itself out,' you'll find 
yourself facing very sophisti- 
cated technology with absolute- 
ly no understanding of how you 
get such systems to work." 

Wohl believes that executives 
who put off buying decisions in 
the hope that products will 
become cheaper or more powerful or 
more reliable are causing 
themselves more harm than good. "I 
tell those executives, 'If you choose 
to stand with your head in the sand, 
you can be assured that your 
competitors will not do likewise,' " 
she says. "I come out of an 
economics background; there's 
something called comparative 
advantage: If your competitor 
chooses to use a business technique 
and you choose not to use it, you just 
may be choosing to go out of 



business." 

Creating a plan 

If there is one mistake in computer 
purchasing that is virtually 
universal among businesses, it is 
purchasing without proper 
planning. "A lot of very expensive 
computers are purchased on 
impulse," says Fred Amport of 
Amport and Associates, a 
management consultant based in 
Chagrin Falls, Ohio. "The typical 
business president will look out at 
his sales office and see twenty or 
thirty people doing a variety of 
paperwork and handling phone 
calls and say, 'There's got to be a 
better way to do this.' Typically, 
he'll go out and look at a couple of 
computers and make a decision 
without studying it any further. 
They make decisions that come 
back to haunt them several years 
down the road." 

Instead, says Amport,"you should 
launch into some kind of a 
cost/benefit study. It can be done 
informally or it can involve 
professional help. Not only are you 
looking at your current operation, 
you also should be looking at your 
operation as it will be several years 
from now. It is not a simple task. 
Unfortunately, many people reduce 
it to simple terms that they can 
understand but which may not 
have their best interests at heart." 
A proper analysis examines the 
full impact of the computer system 
on a business: what the full costs 
will be, including installation 
training, redesigning of workspace 
what the tax implication will be 
which departments will be hooked 
into the system; what the restaffing 
or reorganizational requirements 
will be; who will use it, who will have 
access to it, who will manage it; how 
it will all be protected from abuse; 
and-probably the most difficult and 
least-asked question of all-is a 
computer really needed in the first 
place? 

The answers you get to such 
questions may surprise you. You 
may even learn something new 
about your operation. 

Even firms that already have 
computerization may want to 
indulge in a bit of "post-purchase" 
planning. Amport cites the example 
of a large client who has acquired a 
number of computers over the years, 
all of which have proved to be 
effective problem solvers for their 
various applications. Nevertheless, 
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IMAGINE a computer printer/electronic 
typewriter with a 100 character daisy wheel, 
controlled by 6 microprocessors (including 
2 Z-80's) with an all-electronic keyboard., all 
in one machine! 
THAT'S INCREDIBLE! 
THAT'S THE TYPRINTER 221! 



AUTOMATICALLY, IT WILL: 

Center copy 

Line up decimal points 

Print vertical lines (to separate columns). 

Layout columns 

Center titles (over a column). 

Print flush right 

Return carriage (at end of line) 

Paper feed to pre-set starting point. 

Indicate end of page. 

Set tabs from one to many 

Clear tabs from one to all 

Set temporary margins (wherever you like) 

as often as needed 

Repeat all typing keys as needed 

Underline copy 

Print bold face and underline. 

Do reverse print (white on black), 

sort of "reverse Video". 
Allow alphabetic and decimal tabulation. 

Indent paragraphs 

Store in non-volatile resident memory 

Often used line formats (margins & 
tab stops) 

Often used phrases (up to 835 characters) 
in 10 "bins" 

Up to 10 complete forms (tax, 
medical, insurance, etc.) 

Up to 14,000 characters in an 
additional 26 "bins*" 
Print perfectly spaced proportional letters. 
Return to typing position after correction 

with relocation key 
Allow one character to overlap another (0) 
Right margin justification 
Print two columns with both right and left 

margins justified and the center ragged 
Lift off errors (from single character to 

entire line) 

•Optional al extra cost 



IT WILL EVEN: 

Allow a carriage return without a linefeed or 

a linefeed without a carriage return. 
Allow you to pre-set an impression 

control for high-quality carbon copies 
Allow both vertical and horizontal 

half-spacing. 
Allow cancellation of copy before printing 
Allow express and normal backspacing 
Print in four different sizes 10 pitch pica 

12 pitch elite, 15 pitch micron 
Allow insertion of a missing character 

in an already printed line 
Accept paper up to 17" wide. 




Backspace 1/10, 1/12, 1/15 or even 1/60 

of an inch. 
Buffer and print out one word at a time, or 

one line or as many as 1 pages*. 
Print up to 198 columns. 
Do 1/2 line spacing for footnotes and 

scientific notation. 
Accepts carbon film or reusable nylon 

ribbons 

IT HAS: 

A lighted key to inform you that it's set to 

temporary margin 
A factory installed noise reduction shield 
A 16K buffer/automatic spooler* 
A lighted key to indicate upper case only 
A Centronics standard parallel interface 

and can be ordered with 

RS-232 Serial interface* or 
IEEE (PET) interface- 
Circle #14 



A print speed of 20 cps and (because of 
logic seeking circuitry) a through-put of 
approx. 32 cps 
A built-in anti-glare shield 
IT EVEN HAS: 

Carbon film ribbons in various colors. 
20 character plasma readout that informs 
you as to 

Number of characters to end of line. 
Number of lines left to end of page 
The existence of an error condition 
The contents of a memory "bin" 
Number of characters left in buffer 
An automatic "feature in use" indicator 
(centering, storage, etc.) 
With scrolling, both FORWARD and 
BACKWARDS 

INCREDIBLE? 

THE 221 OFFERS EVEN MORE" 

It's totally compatible with all computers 
and software 

It will print in English, French, Spanish, 
Italian and German. It will automatically 
switch between English and foreign 
keyboards*. (Under computer control). 

Scientific, mathematic, financial and legal 
daisy wheels available*. 

Tractor feed available*. 

Can be used as a stand-alone terminal* 

Can be used to access both TWX and 
TELEX networks* 

TRY WHAT YOU'VE BEEN MISSING 
TRY THE INCREDIBLE MACHINE 
TRY THE TYPRINTER 221 
Suggested price $2850.00 
Dealer inquiries invited. 
(Call for store nearest you). 
Service available through the world-wide 
facilities of the Olivetti Corporation. 




SWDUSTPtflS 

2051 E. CERRITOS AVE., 8-C 

ANAHEIM, CA 92806 

714/778-3443 
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48K - w/disk 



THE FINEST IN 
FANTASY GAME SOFTWARE 



w . .« nml AAa thP fin P st state-of-the-art qraphic adventure software in the world. Our list of credits include the first indoor- 
At Crystal we are doing our ^J^'^^^^^S^^ the Atari, the first graphic adventure in the world which includes screen 
outdoor graphic ^-^ 
scroll.ng and an.rnat.on Thee a of ^ *™^ tUr ^ * f QUf use to 48K and we on l y deal in disk products, but there are a lot of users out 

r^r a t^ 



48 — w/disk 

APPLE) 

48K - w/disk 



••• ADVENTURE GAMES • •• 



1 THF MOUSE OF USHER- Haunted house type adventure game with scrolling in the Atari version. Wander the creepy hallways of the three story 

for another $100 prize. $29.95/1 disk 

9 FANTA«%VLAND 2041 A.D - The largest disk based adventure game in the world (that we know of). Enter the Hall of Heroes and prepare 

award date forward to February 1 982 to allow more people to participate in the contest. $59.95/6 d.sks 

3-GLAMIS CASTLE- Yes, Pat and I are on our way to Britain to stay in the dreaded Glamis Castle. If we survive our real life ^"turj we II be 

$49 95/2 disks 

A.RFNF ATH THE PYRAMIDS- You are an archaeologist in 1932 and must find your way through the perilous chambers beneath the pyramids 

$29.95/1 disk 

**• SPACE GAMES *** 

«i fiALACTIC QUEST- An excellent combination of Star Trek and Space Trader. Battle the animated Vegan fighters as you warp from galaxy to 

gat^ 

games. $29.95/1 disk . 

6- SANDS OF MARS- Take an exciting voyage to the planet Mars via the Starship Herman. This game compared to the rest, is second only to 

clever adventurer out there. Good luck! $39.95/2 disks 

• •* WAR GAMES *** 

7- WORLD WAR III- You Atari gamers will have to see this in the Atari version to believe it! If your tired of war games which take 15 minutes a move 

LSlveV^nuauf* s ze of a telephone book; but still want a complex, real-time action war game-this is it! It is designed for two arm-chair general. «h ch 

maymaLeWoli 

rclar"bZ2sandbattU^ 

and may take weeks to play. $29 95/1 disk 

8- WATERLOO II- If you had been Napolean would you have done a few things differently? Well as you approach this final battle you are equipped 

w^elm^ces fac eZ same p posit ion, and survey the same terrain which he did. We have done a great deal of research to make th.s h.stoncally 

Tu^ 

Oh by the way, your opposition is no slouch. You may find it more difficult to change the course of history than you think! $49.95/2 d.sks 

**• ARCADIA *** 

9-LASAR WARS- Hires-3d space war simulation Protect the earth from alien invaders. $29.95 

10-LITTLE CRYSTAL- The first of our line of education software, which will be completed by December. It includes a very fine version of Hangman, 

M? S^^^^hec^^ into a piano, Gunk-a hilarious shoot-em up game, and Storytime- an anthology of bedtime stones featuring 

Herman, the cat, Oscar, the Hamster, and of course, Little Crystal. $39.95 

11-IMPERIAL WALKER-A fine game pack written by our Atari programmer, Michael (graphics) Potter. Includes the Walker animation which is 

superb, Gunfight, and Lasar Nim, a game of 'how many robots'. $29 95 

12-ADVENTURE PACK- (#1-4) $112 13-SPACEOUT-(#5 6) $58 



illllillHili 



14-THE WARRIOR- (#7-8) $64 



15-ARCADE-(#9-li)$60 



Crystal has many other fine fantasy and space games. For a copy of CRYSTAL VISION which includes a complete catalog please send 
$3.00 to the address below. . 

Our order lines are open 24 hrs. a day 7 days a week. 
(408) 778-2966 CRYSTAL COMPUTER 17120 Monterey Rd., Morgan Hill, CA 95037 



Circle # 15 
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THE FINEST IN 
FANTASY GAME SOFTWARE 



48 — w/ 



48K - w/disk 



"Having previewed over fifty of your competitors' games J can assure you that your use of scrolling far exceeds anything I've seen for the Alan and of course for the 
apple. I m very impressed by the dedication and quality that your company exhibits by virtue of this demo. "David Sosna - Associate Producer, Universal Pictures 
Crystal has done its best to become the Porsche of the computer game industry. New scrolling techniques, video disk games, a real-life fantasyland - our mad pro- 
grammers to^l onward with little food or sleep to produce some incredible firsts in the microcomputer world. If you are an unappreciated genius and want to join our 
staff to help create the world of tomorrow today, give me a call. Our magazine Crystal Vison will within the next month have a circulation of 80 000 and we look for- 
ward very soon to producing our first full length motion picture I'd like to thank my friends at Votrax and Axlon for giving us the tools ( 128K RAM for Atari and a vocal 
text synthesizer) to truly produce some programming miracles. 







• • • l»VV KELEA5ES * * * 

1!^ ou^rTI!Th fr„m n fh! V h h ^ y ° U * W t* «? W tC ^ V °u fSelf m What app€arS t0 be an endless cemeter * A,thou 9 h ^nseless, you must somehow find your 
«^ ! k P ♦ J u hlde t US k assaultS 0f fle ih cat] "9 zombies, rats, vampires, werewolves, and other repulsive monstrosities. To escape you may have to des- 

cend into the catacombs beneath the cemetery. This game is a little different from the others of our series because we use a lot of static graphics to set the mood It is 
similar in some respects (without any copying intended) to those of our friends at On-Line who produce exceilent static graphic adventures. You must^Te all you 

XeTeive al 2M l^rbt WllTd^** ^ Peri ' OUS ^^ &hve W * hav * mad<? itso near, V ^§8* lhat th < &* P^V"** do it successfully 

Vh 7 .1, c" f 9?" E t R c by ^ ark l Benioff - An extraordinary game with the adventure and magic of Arthurian legend Join Galahad as he leaves Camelot in 
search of the Scroll of Truth Explore the treacherous depths of the Caves of Somerset, visit the medieval city of Essex Along the way you will Lee powerful wa 
and great p™** The villages of Sunderland and Leeds dot your path Somewhere in an evil castle called Skenfirth. lurks the S^TISX Ev"a™ 




• • • GALACTIC EXPEDITION • 

nlhf r a i1 i$ 30Z 1 1 ' un m ° Sl 10 ° ye f.7 S !1 C .?,'^, f ? ed,,ion '° ,he Sands °* Mars has 'etufned. The Starship Herman now rests quietly in the Zikon Museum in New 

wonder 6 LTJ L^TX" *" ™£* ITJ'V"*' Cen *° "**"'" ** 150th ™™'™V- »"* *» «"d * *• unveiling of a truTy Solo^c^ 

r?.i. II ""'PfipeHed vessel, saucer-shaped Lady Joanne. ,ts viewport of pure diamond, its hull <rf synthetic emeralds. The Martian qluohs of the Meshim 

^ t Z™ a rr°T been d « ci P hered and "W"" '""' • ««h greater mystery is aboutto unravel 7 planes and 7 doors 1 "guaS and 7 candtes™ 
™rvelous new technology this craft must be flown by constant monitoring of ion stabilizers During your galactic expedition you are surrounded bv the fiickerina 
wMch alsols" «mTlmo 1ST """^ Each uni « ue worid holds °" e °< lh * 7 *» >o unlock ft! Great My'tery. The games all L oC'iKS 

fl?!!!^ Ear *' 1 tO *IOOn - On the Moon's dark side lie entrances to caverns extending to the moons hollow core which containsa timeless secret Here live a 
wee of burrowmg creatures, who have built vast earthen cities with storehouses full of precious stones. Gravity is extremely critical and you musi u e aTyour s k Zl 
manually land your craft. Th,s first Master Disk contains the dos needed to run additional scenarios. Its price" is $39.95 and includes 64 scTeent ; of HtaSffSK 

talln^?.?\ Ve " US _ °" Y enus ' e , v , er h °' 5urfac:e are endless jungles and swamps. The air is unbreathable and spacesuits and oxygen must be carried This world 

marii!?^!l?,!'n , 7!,!!?„"; H S h " rd , ,C ' eN "i here Herman ' S T° Sphe,e ends and ,he surfac « >**>». Much of this adventure will have the feeling of a starship sub- 
M«ter torun 9 V " V ian9emu * bul wllh a com P u,er «• *>"* ^V J«™« » ™V be just possible This senario costs $29 95 and needs The 

JdVe^ *?oWp?na?^ ^ A com * natio " ol th * *** machine language sub-routmes of our new Crystaloids with a fast moving 

uo pThJ^l fho^H tT h "^2ft"ft 3nd S ° mC UnU . SUai f ? rmS ° f •"^S" [lfe «* ist *™ *'* ^cult to travel in the Asteroid Belt without getting blown 
,L n ? ^ u S °l^ eXP€Ft ^ P by fCSCUin9 a pilot ' wh0 is also * sentenced thiefor murderer, from one of the penal colonies There are places to) 

trading and you may w.sh to indulge yourself with a visit to the sensual Pleasure Planet. $29.95 (needs Master Disk) coLonies. here are places tor 

^Tfl^^F?^ !S5 ^h A Uee V ? ld M e WUh ^P ~ 2 °°° F - Bt i in9 al ° nS Th **™*^ ™ »*$* some Laars with which to battle the Grungik, a 12 

mav h "J hi s own id« 5Su ■ eS ^^ anUS alS ° *? l*^ innCr ldbyrinth W " h fropicaI flora and fauna " Howeve ^ the Ki "S ol the Ice Planet Norton 

MaLr D^k toTun) trespassing. Without proper clothing, weapons and supplies, your stay here may be very exciting and very short. $29.95 (needs 

Jupiter -world of Dwarfs ^ 

on Jupiter and a curious set of moons. Picking up some antigravs wliV help .landing should really tax your energies In the Jupiterian atmosohere uou fall fast' R-" 
prepared to use 10 times the normal amount of fuel. Better find the 6th key quickly before yourtoel and food are '^M^^^f^^ 

JxVentmo Xl. th. ^I^IS h^h"' 11 l ^ vc /° 1 embark on this r ^ P^on of your expedition ignorant of what you may encounter here on this mysterious planet 
excepting that the 7th world holds the ultimate key to winning the contest. $29.95 (needs Master Disk) "y^nou*. p-anei, 

Tile COI1te5t - To the Winner with the highest score, who solves the mystery by November of 191 






How would it feel to weigh 300 or so lbs.? A trip to Jupiter should fill you in fart. There is a particularly interesting red spot 



will go $5000,00 in cash. Good Luck! 










^^ ^^ ^^ ^^ ^^ ^^ 

kta^lth t^JIMd inZlf^r ^A™?*^ ' G9 r d '^ r u C ° rdS * u S ***** iS ° ne ° f the mOSt haunted Sit€S in Grcat Britain ■ 0ne Lad V <^™- ^OWIl to be in 
«n«^^ destructLve demon to harrass the townspeople She finally was burnt at mistake on Castle Hill, cursing as she died all future 

?. ™ *°™_° f the . y ° n fam ' V Her d * mon stlU ? t « mt *° haunr that S P°'' murdering the curious who stray up to Castle Hill after dark. The curse stipulated that each 



succeeding generation would have at least one child, often female, who would be a vampire. When an heir comes bf age, there is a secret ceremony in which the heir, 

n chamber, known only to them, that Earl Patle used when he gambled with the 
in the walls of Gla mis to insu re the f u If illsng of the curse . The mystery, of course , is 

u/ill hP nfWinn a i^no ™,„ »„ »k rt ( ♦ j • " — r,..^- Ave as exact a replica of the castle aspossible , It's definitely one of a kind! And we 

will be ottering a S500 prize to the first person daring enough to solve the centuries-old mystery of Glamis Castl * 



An? h *L^ 6 f the , s t t€ward ta [! e crow t>ars and chip away plaster concealing a hidden chamber, known only to them, that Earl Patle used when he gambled wrthThe 
devil Another tradition says that a creature . half-man . half-beast stalks the passages in the walls of Gla mis to insure the fulfilling of the curse The mvs^e^S course is 
to determine the location of this secret chamber. Our game, occupying 2 disks wiiih, 9 € mystery, ot course, is 



le $49.95 2 disks 



I 



m 



< 



Crystal has many other fine fantasy and space games. For a copy of CRYSTAL VISION which includes a complete catalog please send 
$300 to the address below r\ um ~ ««j a «. u « o-* ■ _■••_■ . 

Uur order lines are open 24 hrs. a day 7 days a week 

(408) 778-2966 CRYSTAL COMPUTER 17120 Monterey Rd.. Morgan HIU t CA 95037 
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Business computing 
BUSINESS, 

continued from page 24 



an evaluation revealed that new 
and improved software technology 
could allow a number of separate 
and disparate computer operations 
to be merged into a much more 
coherent operation. "They changed 
the whole way that they were doing 
computing," says Amport. "But 
there was no way to know it was 
possible without studying it 
intensively. In the long run, it really 
pays off." 

There are a few other major 
considerations that are often 
overlooked when making purchase 
decisions. First and foremost is 
computer software-the programmed 
instructions that allow you to 
perform the various applications, 
from word processing to report 
generating to number manipula- 
tions. In the midst of all of the sexy 
computer hardware demonstra- 
tions, most potential purchasers 
don't fully consider this crucial 
element. 

Software comes in a variety of 
styles. You can buy prepackaged 
software, which is designed for the 



E3SSESE3K 



DISCOU 



VERBATIM 

BOX OF 10 
5V*" MINI DISKS 29.95 
8" DISKS 45.95 

ALL VERBATIM PRODUCTS 
AVAILABLE. ASK FOR QUOTES. 

ALL ORDERS SHIPPED UPS SAME 
DAY. 

TERMS: CASH, CHECK, MONEY 
ORDER, VISA, MASTERCARD OR TRANS 
ACTION. WASH. RESIDENTS INCLUDE 
5.4 SALES TAX. SHIPPING NOT IN- 
CLUDED. 



(206) 952-6372 

S-W SYSTEMS 

P.O. BOX 6244 

FEDERAL WAY, WA. 98003 



"typical" business. Such products 
require that you bend your 
operation to fit the software, which 
is not always possible-or desirable- 
particularly with large organiza- 
tions. 

An alternative is to purchase 
"custom" software designed for 
your specific purpose. Custom 
designs, as is true with most other 
products and services, are not 
inexpensive, and they require an in- 
depth analysis of how your business 
functions (something you should do 
in the first place). But there is 
usually little question of whether it 
will meet your needs. Another 
option is to do the programming 
yourself, a logical solution if you 
have a system large enough to 
justify employing a computer 
programmer. 

Another frequently overlooked 
question is that of service. Any 
computer system-whether it's a 
state-of-the-art model or one that is 
three generations old-requires 
regular maintenance, in addition to 
the inevitable "down time" that 
pops up when you least expect it. 
Computer manufacturers vary 
widely in their ability to service 
their machines. Some computer 
makers farm such operations out to 
independent contractors. Others 
maintain fast and efficient fleets of 
on-call technicians. Still others 
require that you pack up your 
troubles and bring them in to their 
shops. In some cases, businesses 
purchase equipment from firms 
with no local service presence. When 
it comes time for repairs, they find 
that the nearest expert is several 
states away. 

In the end, says Jack Nevison, 
"buying a computer is like buying a 
car. If you are a business buying a 
computer, probably the least 
important thing is the piece of 
equipment. The most important 
thing is that you understand your 
business well enough to know that 
you have a function that you want to 
automate. If you buy a car, you do 
exactly the same thing. You buy 
partly for what you need, partly for 
what you can afford in terms of 
sticker price and options, and, 
finally, you buy a car that your 
mechanic says he can keep in 
running order." 

Words to the wise 
If you're a typically busy manager 
or executive, you probably don't 
have a lot of time to scour the town 
in search of the right computer 
system for your business. In fact, 
you may not have the time to learn 



enough about this new technology 
to even make intelligent decisions. 
After all, modern computer 
technology is the product of several 
thousands of technological 
geniuses, and it's unlikely that even 
the brightest of business people can 
pick it up just like that. 

Or is it? As is true with almost 
everything from acupuncture to 
zero-based budgeting, there is 
expert advice available, often at 
little or no cost. For one thing, 
whatever you're doing, from 
running a diaper service to mixing 
paint dyes, there's a trade 
association and a professional 
journal that covers your business. 
"Unless you're on the cutting edge 
of your industry, somebody else has 
probably solved half the problems 
that you are about to run into," says 
Jack Nevison. 

Computer manufacturers often 
hold introductory seminars, which 
can provide a wealth of information. 
The seminars, of course, are geared 
to sell computers, and having 
signed the seminar guest register, 
you are sure to hear a lot about the 
products of your host. But the 
seminars often can serve as good 
primers on the state of the art, and 
will probably create a lot more 
questions than they will answer, 
which will give you a good basis for 
further inquiry. 

Another source of help are courses 
aimed at teaching executives and 
managers about computers. Many 
are offered at colleges and 
university extension services. The 
American Management Associa- 
tion offers a series of courses 
entitled "Data Processing for the 
Non-Data Processing Manager" 
that is offered at various locations 
around the country. 

There is also wide variety of 
business computer and office 
automation shows held throughout 
the country each month. Such 
shows typically feature seminars 
for both novices and experts, as well 
as give you immediate access to the 
many manufacturers exhibiting 
their wares on the premises. 

And, of course, as with just about 
everything else, you can hire a 
consultant. In recent years, the 
computer consultant population has 
grown nearly as fast as the 
computer systems themselves. 
Choosing the right one can be a 
complex matter in itself, since, like 
computers, consultants vary widely 
in their specialties, abilities and 
rates. 

But the information they provide 
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Does your CP/M** or TRS-80* Word Processor need help? 

Aspen Software has the finest document proofreading tools available. 

QKAMMATik" 

Beyond Spelling Checking 

Spelling checkers are useful, but they are not enough! 
Grammatik can find many errors that a spelling checker can't. 
It detects many errors commonly found in text entered on 
computers, such as doubled words ("the the"), inconsistent 
capitalization ("STicky shift key"), incorrect punctuation, and 
others. That's not all! Grammatik also checks your document 
for good writing style using a dictionary of over 500 misused 
phrases as defined in many writer's style manuals. It marks 
and classifies the problems it finds in the document file for 
easy correction with your word processor, and provides sug- 
gestions for correcting the problems. The phrase dictionary 
can be easily extended to include checking for esoteric jargon 
or your own pet peeves. Grammatik also collects other stylistic 
information that can be used to revise the document to im- 
prove its readability such as average sentence and word 
length. It can produce a profile with the number of times each 
unique word in the document was used, helpful for identifying 
overworked vocabulary. Grammatik is not only a valuable 
proofreading tool, it is also a useful learning tool. You will 
notice significant improvements in your own writing style after 
using Grammatik for only a short time. Grammatik is fast, 
easy to use, and works with all popular TRS-80 and CP/M 
word processors. Model I/HI version requires a minimum 
32K. 1 drive system. Model II TRSDOS* version requires 
64K and 1 drive. CP/M version requires CP/M release 
2.2 and 48K. 
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The Aspen Software Company Spelling Checker. 

Don't buy a spelling checker until you've considered Proof- 
reader. Recently, several ads for other spelling checkers have 
compared themselves to "others". They weren't comparing 
themselves to Proofreader! Proofreader has all the features 
you need for checking your documents for spelling errors and 
typos. Proofreader looks up every word in its 38,000 worxl 
dictionary, and does not increase its "vocabulary" by using 
less accurate root word analysis like some others do. You 
won't need to spend as much time adding new words as you 
would with a smaller dictionary. Proofreader is easy to use - 
you can start checking your documents immediately. Proof- 
reader is fast - it can check even your largest document (20 
pages or more) in less than 5 minutes! Unknown words are 
listed on the screen, and can be saved in a file for later 
manipulation. The Proof-Edit feature (optional on the Model 
I/IM version, included with Model II and CP/M) allows you to 
interactively correct the unknown words in context. New 
words can easily be added to the dictionary, and expansion is 
limited only by disk capacity. Proofreader works with all 
TRS-80 operating systems and word processors, so if you 
change systems, you won't need a new spelling checker. On 
the TRS-80 Model I/HI, only 32K RAM and 1 disk drive are 
needed. Proofreader also works with all popular CP/M word 
processors. Add up the facts and the low price, and you will 
conclude that Proofreader is the best value available in 
spelling checkers. 



Aspen Software programs are professional quality, reliable software 
tools developed for the TRS-80 and CP/M by a Ph.D. in Computer 
Science All software is protected bv Aspen Software's low cost 
upgrade privilege for new versions. Other tools include: 

— SOFT-SCREEN™, a powerful, state of the art full screen text 
editor. Over a year in development, Soft-Screen is compatible with 
all TRS-80 programming languages, including BASIC, FORTRAN, 
MACRO. Ratfor, and COBOL. Commands are easy to learn, yet 
versatile and complete to satisfy the most experienced user. Soft- 
Screen is also available for P&T Model II CP/M. 

— SOFT TEXT™, Aspen Software's text formatter. When used 
with Soft-Screen, provides a powerful word processing system. Full 
featured, including automatic pagination, even and odd page 
headings, underlining, index generation, footnotes, support for 



advanced printer capabilities, and much more. Model I/III version 
supports serial printers at full speed. Soft-Text offers a real alter- 
native for Model II TRSDOS users. Please write or call for 
more details. 

— RATFOR, a structured language preprocessor for Fortran de- 
veloped at Bell Labs. Aspen Software Ratfor is one of the best 
versions available, and the only one with a pretty printer option. 
Totally compatible with Microsoft F80. Includes several extensions, 
including "case", "string", and conditional compilation. User's 
manual contains all information needed to learn and write Ratfor 
programs. Requires FORTRAN. 

— PP-RATFOR, a pretty printer. Automatically formats and 
indents Aspen Software Ratfor source programs. An essential 
program development tool. 





Model I 


Model II 
(64k, Id) 


Model HI 


CP/M 
(2.2,48k) 


Manual only 


Proofreader 

Proof-Edit 

Grammatik 


$54.00<32kld) 

$30.00 

$59.00(32kld) 


$119.00 

incl. 

$99.00 


$64.00(32kld) 

$30.00 

$59.00(32kld) 


$129.00 

incl. 

$149.00 


$8.00 

incl. 

$8.00 


Soft-Screen 
SofVText 
both 


$69.00(48kld) 
$69.00(48kld) 
$129.00 


$99.00 

$99.00 

$179.00 


$75.00(48kld) 
$75.00(48kld) 
$139.00 


$99.00(P&T) 
$99.00 
$179.00 


$15.00 
$15.00 
$25.00 


Ratfor 
PP-Ratfor 
both 


$49.00(48k2d) 
$30.00(48k2d) 
$74.00(48k2d) 


$99.00 

$49.00 

$139.00 


$59.00(48kld) 

$34.00 

$84.00 


$99.00 

$49.00 

$139.00 


$15.00 



IMPORTANT . Specify computer model, operating system, memory size, and number of drives when ordering! For CP/M, 
currently only 8 single density CP/M versions available. Please inquire about other CP/M disk formats. AH TRS-80 ver- 
sions available. Manual only orders can be applied to final purchase. CP/M prices are introductory. 

Orders sent postpaid by first class mail. Terms: Cash, check, money order, VISA, or Master Card. NM residents add 4% tax. 
Proofreader, Grammatik, Soft-Screen, and Soft-Text are trademarks of Aspen Software. 
**trademark of Digital Research trademark of Tandy Corp. 

T.M. 




P.O. Box 339 -E Tijeras, NM 87059 (505) 281-1634 
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Business a 



can be invaluable. By providing an 
objective evaluation of your 
organization and its computing 
needs, a good consultant can rise 
above the chaos and provide a 
unifying force among the many 
diverse interests of the typical 
modern business. Moreover, a good 
consultant can cut through the ad 
claims and computer jargon of 
manufacturers to line up the best 
system of hardware and software 
for your needs, and can help arrange 
financing as well as oversee the 
system's installation and 
implementation. 

Staying out of trouble 
(and court) 
Despite the best-laid plans, a 
distressing percentage of 
businesses fail to find happiness 
with their computer systems. 
Lawsuits over faulty systems are 
increasing at a rapid rate, with 
epithets flying about between 
computer manufacturers and users 
over who's to blame. In some cases, 
the problems originate with the 
computers, or the lack of service 
available when problems arise. 
Sometimes, the problems arise at a 
frequency that even the finest 
service fleet can't handle. Other 
times, problems originate with the 
naivete' of first-time buyers, 
particularly from small and 
medium-size companies. 

A lot of the problems come down 
to basic misunderstandings. "One 
major problem is an underestima- 
tion of the time it takes to implement 
a system," says Thomas Christo, a 
New Hampshire attorney who has 
represented many dissatisfied 
computer buyers. "It is a major 
effort, and rarely can a new user 
expect to plug in a bunch of 
hardware and have it operate to his 
satisfaction within thirty, sixty, or 
ninety days. It takes time for the 
user to ,adapt to the system and for 
the system to adapt to the user. It is 
not something that can happen over- 
night." 

Another problem, he says, is that 
"many companies get into data 
processing when they don't need to. 
By streamlining their manual 
systems they'd be much better off." 
But the biggest source of 
misunderstanding, says Christo, is 
an inadequate contract, one that 
fails to fully spell out the 
responsibilities of the manufacturer 
and of the user. Normally cautious 
executives, who wouldn't sign a 
sizable check without consulting 
with counsel, fail to seek advice 
when locking themselves into a 



multiyear financial arrangement 
with a computer vendor. 

Of course, what you purchase is 

important, too. "That's where most 

of the mistakes are made," says 

Hillel Segal, president of the 

Association for Computer Users, a 

Boulder, Colorado-based nonprofit 

membership organization of 

individuals and businesses that buy 

and use computers. Segal points to a 

number of pitfalls he says are the 

source of a large number of the 

problems most computer users face: 

• Failing to "test drive" the 

equipment. "Before you sign on the 

dotted line, you should let your 

programs run on the equipment, 

measure the response time, 

determine how much time it takes to 

run your payroll or your general 

ledger," says Segal. "Any computer 

company, if it sees that your 

purchase of their equipment is 

dependent on allowing you to do 

that, will make that computer time 

available." 

• Passing the buck. The buying 
decision should rest with top 
management, rather than with 
someone in a lesser position. "That 
person doesn't necessarily know 
what you had intended for that 
machine," says Segal. "Upper 
management has to be involved." 
-k Unrealistic expectations. "Some 
people think that all they have to do 
is to get a computer with a financial 
modeling package on it and it is 
going to help them be profitable," 
says Segal. "If you don't know what 
you are doing, the computer is not 
going to help you-instead, it will 
make you aware of what it is you are 
not doing." 

~k Ignoring hidden costs. "There 
are a million costs to bear in mind 
when you buy a computer," says 
Segal, "and if you don't build it into 
you equation in the beginning, you 
could vastly underestimate what it 
is going to cost you. For example, 
there are peripheral devices, like 
printers, extra storage supplies, 
software, personnel training, 
installation costs, insurance, 
conversion, parallel operations, 
consultants, finance charges, legal 
fees. A lot of people tend to forget 
about these." 

• Trying to defy Murphy's Law. 
Something is inevitably going to go 
wrong, and you need to be prepared, 
whether the problem is in budgets, 
installation and conversion 
schedules or equipment glitches. 
"The people who inevitably get 
into trouble are the ones who say, 'It 
won't happen to me,' " says Segal. 



Computer systems - 
safe and secure 

Two other aspects of owning and 
operating business computers that 
are generally left out of sales 
brochures and pitches involve 
keeping computers safe for your 
business and for your employees. 

Computer security is an area of 
increasing interest and concern, as 
"computer crime" begins to 
penetrate small businesses as well 
as bigger ones. Smaller firms are the 
ones that suffer most, since even a 
tiny embezzlement can be enough to 
bankrupt a small business with a 
tight cash flow. 

Theft is made easier by computer 
in two ways. First and foremost is 
that the mere existence of computers 
in a business increases access to 
company records and accounts. 
Computerization means that all 
kinds of information is available 
right at employees' desks-if they are 
situated at computer terminals. 

The second reason why 
computerization encourages crime 
is that it makes theft more difficult 
to trace. Handwritten records that 
had to be erased or altered were 
considerably better proof than a 
series of electronic beeps made 
anonymously by a computer- 
operating embezzler. 

Of course, computers can be 
programmed to guard against such 
abuses, and security codes can 
prevent unauthorized individuals 
from access to confidential data. 
But the best protection is periodic 
perusal of computer records by 
yourself or a trusted employee. For 
this reason alone, it is important 
that top management fully 
understand the workings of the 
computer systems in their 
operations. 

If security is rarely considered by 
computer buyers, worker safety is 
an unknown entity. But it is a vital 
one, according to a growing 
population of physicians and 
researchers, who are finding that 
computer terminals can cause a 
wide range of adverse health effects 
for users-effects that can 
substantially reduce productivity, 
increase absenteeism and possibly 
make you liable for health-care 
claims that could come up even after 
employees leave your firm. 

At issue are the video display 
terminals (VDTs) that comprise the 
basic work station for most 
computer users. It's just becoming 
recognized that the designs of many 
such systems are poor, resulting in 
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MODEL III DISK KITS igi^Mk 

TWO 40/track drive kit and hardware. Comes 

oomplete with all the necessary hardware and 2 

drives of your choice, (MPI or TANDON 40 

track). NO SOLDERING OR TRACE CUTTING 

REQUIRED! COMPLETE EASY TO FOLLOW 

INSTRUCTIONS INCLUDED 875.95 r --=*■•. , 

TWO 80/track drive kit and hardware. Same as above 1,095.00 

ONE 40/track drive kit with all hardware and your choice of MPI or TANDON 40/ 
track drive. (INSTRUCTIONS INCLUDED) 599.99 

ONE 80/track drive kit with all hardware and one MPI 80/track drive No solderinai 

(INSTRUCTIONS INCLUDED) 699 ^ 

TRS-80 MODEL III, 48K, 2 40 Track TANDON or MPI drives 2 095 99 

TRS-80 MODEL III, 48K, 2 80 Track MPI drives 2i325.99 

16 K MEMORY 19.9! 

MODEL I, III APPLE AND EXIDY. Instructions included 
(MOD 1 Keyboard requires jumpers. $2.00 ext ra) 

ARCHBOLD SPEED-UP MODIFICATION FOR MOD I 
TRS-80. RUN UP TO 300% FASTER CPU SPEED! SPEED UP 
SLOW PROGRAMS WITHOUT SOFTW ARE! 45.00 

MONITORS 

Black and White Monitors 12" (TECO) 129 95 

Green Phospher Monitors "12" (TECO) :....... 15995 

AMDEK Black and White 12" Monitor 159.95 

AMDEK Green Phopher 1 2" Monitor 100G ......... 1B9 .95 

MODEL I DISK DRIVES 

These drives come complete with power supply and chassis 
90 day warranty on disk drives. ALL DRIVES COMPLETELY 
TESTED PRIOR TO SHIPPING! 40 track drives are fully 
compatible with TRSDOS, NEWDOS-80, LDOS etc. 
Fully compatible with the PERCOM DOUBLER and Double 
density! 80 track drives require MAKE-80 program to run 
regqlar software. (SPECIAL! GET A FREE 2 DRIVE CABLE 
WHEN BUYING 2 or more DRIVES!) 
40 TRACK MPI or TANDON DRIVES .... 319 95 

80 TRACK MPI ' 439*95 

DOUBLE SIDED 80 TRACK MPI 57995 

2 DRIVE CABLES 25*95 

4 DRIVE CABLES " 35*95 

SPECIAL DOUBLE SIDED CABLES '.' (CALL $) 

MAKE-80 CONVERT 40 TRACK TO 80 TRACK. 
(SPECIFY MOD I, III) 29.95 

DISKETTES 

SPECIAL: Brown Bag Diskettes (Verbatim) Bag of 20 . 49.95 

SPECIAL: Brown Bag Diskettes 100 Quantity 214.00 

VERBATIM DATALIFE DISKETTES Box of 10 32 50 

VERBATIM DATALIFE DISKETTES 100 Quantity . . 275 00 




SPECIAL DISK HOLDER 
*21.95 



Holds 50 Diskettes 
Reg. Price $35.95 
SPECIAL 



PERCOM DOUBLER II (Includes DBLDOS) Doubles storage 
on Model I disk drives. Installs in Exp. Int. in minutes! Will not 

effect normal operation! 169.95 

NEWDOS-80 (New Version 2) 139 95 

LDOS 13 9.95 

DOSPLUS 3.3 89.95 

(Specify Mod I or III) 




LYNX TELEPHONE MODEM 

AUTO/DIAL AUTO/ANSWER. 
COMPLETE WITH SOFTWARE AND 
HARDWARE FOR MODELS I AND III 
The RS-232 is not needed! Completely 
assembled. LYNX MODEMS are compatible with 

ST-80 III also 299.95 

ST-80 III: Smart terminal program. Allows saving data to disk 

or sending data from disk and more! Mod I or III ... 149.95 

pR|NTERS 

SPECIAL: FREE CABLES AND FREE SHIPPING 
WITH ALL PRINTERS! 

CABLES FOR MODEL I EXPANSION INTERFACE, MOD III 
or PMC-80 EXP 100 or PIF-40 only.) 

PLE ASE SPECIFY WHICH COMPUTER! 

■ . * 1 r,i .,= v; ss s^m ~tr*r-&ih°z2? ammmm 

HIGH QUALITY DOT MATRIX 

EPSON MX-80 (Tractor feed only) 539 95 

EPSON MX-80 FT (Tractor and Friction feed) . . ' 63995 

EPSON MX-70 (Tractor feed only) 419.95 

EPSON MX-1 00 (Tractor and Friction feed 14.5 wide). 895.95 

EPSON MX-80 Hi-Res Graphics Option 89.95 

Add-On Friction Feed Adaptor for MX-80 or MX-70 5995 
OKIDATA MICROLINE 80 (Friction and Pin feed) 414 95 
OKIDATA MICROLINE 82 (Friction and Pin feed) . . 597.95 

OKIDATA MICROLINE 83 897.95 

(Friction, Pin and Tractor feed 14.5") 

OKIDATA MICROLINE 82A. 120 cps 625.00 

(9x9 matrix w/descenders) 

OKIDATA MICROLINE 83A. 120 cps 925.00 

(9x9 matrix w/descenders) 
TRACTOR FEED ADAPTOR for 80 and 82 75. 00 

LETTER QUALITY PRINTERS 
The C-itoh Daisy wheel printer is one of the finest Letter 
Quality printers we've seen. WHY PAY MORE FOR LESS??? 
Exchange Daisy wheels to get the kind of printing fonts you 
need. 12-10 pitch. Excellent with Scripsit or Electric pencil 
Let's face it, sometimes dot matrix doesn't hack it! (You can 
use standard Diablo Carbon ribbons with the C-itoh to aet 
crisp "COPY READY" printouts!) 

C-ITOH DAISY WHEEL 25 CPS 1 795 25 

C-ITOH DAISY WHEEL 45 CPS .... " 1W2S 

C-ITOH TRACTOR FEED '.'.'.'.'.'.'.'.'.'. 219.95 

— -~ ,. PMC-80 COMPUTER 

16K LEVEL II Fully compatible with 
all TRS-80 Mod I Software 595.95 

PMC-81 COMPUTER 16K LEVEL II 

with upper/lower case. Upper/lower case 
driver in ROM Auto key repeat: Numeric keypad. 
4 programmable keys. Built in speaker. 100% Mod I software compatible 679 99 
EXPANDER 100 PMC's expansion interface 32K, disk controller, printer interface 

(Expands,PMC-80/8i to 48K) 499 99 

RF-MODULATOR for PMC or TRS-80 to TV Hook-up. Completely assembled and 
' e s 'ed ( P| U gs in V l deo port) UHF CH.33 39 95 

TRS-80 Disk and Other Mysteries Book, 132 pp 22.50 

Microsoft Basic Decoded and Other Mysteries, 312 pp 29.95 

Custom TRS-80 and Other Mysteries, 300 pp .'. [ 29.95 



CALL TOLL FREE: 800-528-1149 



NO SURCHARGE FOR VISA, MASTER CARD OR AMERICAN EXPRESS"! 
(10% DEPOSIT REQUIRED ON C O.D.'S OVER $200,00) Send Certified Check 
Money Order or Check. 

SIMUTEK C ITER PRODUCTS inc. 



4877 E. SPEEDWAY 
TUCSON, AZ 85712 
(602) 323-9391 



CALL FOR 
FREE 100+ PAGE 
CATALOG!!! 



TRS-80 IS ATM OF TANDY CORP. PMC-80 IS TM OF PERSONAL MICROCOMPUTERS 
PRICES AND SPECIFICATIONS ARE SUBJECT TO CHANGE WITHOUT NOTICE 
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physical- and psychological 
hardships for system users. 

For example, keyboards that 
aren't separate from screens can be 
harmful to the back; screens 
that don't adjust vertically or 
horizontally, or that don't have 
adjustable contrast, can result in 
increased glare that can lead to a 
wide range of visual problems. 
Many products do offer such 
flexibility, although these aspects 
are rarely made prominent in 
manufacturer literature, if they are 
mentioned at all. 

The physical working environ- 
ment can cause problems, too. For 
example, the lighting conditions 
needed for VDT work are far 
different from those needed for 
typing on traditional typewriters 
and doing filing and other typical 
office work. VDT users need 
subdued lighting. Moreover, glare 
from white walls, shiny desk tops 
and windows often contributes to 
high levels of glare that make it 
difficult for employees to work 
efficiently. 

Such considerations may seem 
less than earthshaking to an 
executive burdened by price/earn- 
ing ratios and investment tax 
credits, but they're issues that you'll 
have to face in the coming years of 
the increasingly computerized 
workplace. But with a little 
planning, the savvy executive can 
easily nip such problems in the bud. 
Perspectives from three users: 

PPG Industries 
"As 'the result of an internal study of 
office technology, we installed a 
minicomputer system, with fourteen 
work stations," says Ken Myers, 
supervisor of programming support 
for the chemical division of PPG 
Industries in Pittsburgh. 

"During the first few months, 
we're concentrating on the people 
aspect of the system, making sure 
that the capabilities are being fully 
utilized, that the training is 
sufficient and that the personnel is 
adequate. We've started the system 
primarily on word processing, 
although we intend to explore some 
of the additional advantages as we 
get moving. 

"In our original investigation, 
during which we talked with a 
number of computer companies, the 
discussions always seemed to deal 
more with people than with 
technology. We realize that it was 
important to pay due respect to the 
human element when going into 
something as new as word 



processing. We kept close touch with 
the personnel aspects of our system. 
We had orientation sessions prior to 
the actual installation. We made 
sure that everyone had training that 
was offered through our vendor, so 
that when the machine showed up 
they had some background on what 
it could do and had the ability to 
start using it. 

"So we tried a combination of 
all those things to take a little 
pressure off the secretaries, and at 
the same time see them accelerate 
and get through the learning curve 
as soon as possible, without 
expecting full proficiency for six to 
eight weeks. I think that it has been 
a big success, because our people 
have almost unanimously indicated 
that they really enjoy working with 
the equipment. They feel that it has 
been a big benefit to them." 
United Mineralogies Inc. 
and 
Johnnycake Inc. 
"Our core group of companies is 
involved in many activities, 
including active real estate 
development, agriculture, and the 
development of oil, gas and coal 
properties," says Daniel F. Flynn, 
president of United Mineralogies 
Inc. and Jonnycake Inc., two jointly 
owned companies based in 
Farmington, Connecticut. "Our 
interest in data processing was 
instigated by the need to assemble 
raw data from our various 
operations around the country, and 
to be able to analyze these 
operations and the opportunities 
that they present in order to 
determine which are most deserving 
of our attention. Our data- 
processing operation, therefore, is 
broken down into two parts: the 
gathering and assembly of data, 
whether statistics or financial 
reports, and the manipulation of 
this data into usable form. 

"I would recommend highly that 
any executive who is involved with 
analysis spend a couple of days 
taking an executive computing 
course. Not simply to become a 
proficient data-processing operator, 
but to understand the dimensions 
and capabilities of the current state 
of the data-processing art. 

"We purchased terminal 
equipment but decided to go with a 
service bureau for the software 
because the technology is changing 
so quickly that by the time we 
invested or committed ourselves to 
one system, developments would 
have taken place that would leave 



our equipment out of the top of the 
market. So we chose for flexibility to 
go for terminal equipment that is 
plugged into the service bureau's 
larger system. 

"Our uses and benefits have 
expanded almost geometrically over 
the past couple of years, and we 
couldn't be happier. I suppose that 
there could be a point in time when 
we might purchase our own system, 
but for the volume of information 
that we store, it simply isn't cost 
effective." 

International Harvester 
"About a year ago we realized 
there were numerous cases where we 
couldn't obtain routine data for 
reports," says E. C. Yerian, 
manager for industrial engineering 
and distribution planning for 
International Harvester in Broad- 
view, Illinois. "We knew that the 
data was available, but we'd go to 
our data processing people and have 
to write out a project request and go 
through a lot of bureaucratic red 
tape. It was taking us weeks to get 
what we needed. The DP 
department was concerned with 
maintaining inventory of the five 
million square feet of warehouse 
space we have scattered around the 
world, so we got the idea we could do 
it ourselves. 

"We went out and purchased a 
small microprocessor and started 
learning basic programming. All of 
a sudden we had about six 
departments that wanted to use it. 
Within a year, the thing was in use 
from 6 A.M. to 10 P.M. 

"After one year, we expanded our 
processing capacity. We purchased 
a system with five terminals. It's 
totally operated by the users- 
representatives from the supply 
department, the accounting 
department, the transportation 
department, engineering. 

I think that we have eighteen 
steady users on it now, and that 
number is growing by the hour. The 
data processing department, which 
is still running its big mainframe 
system, has offered to give us 
support, but so far we haven't felt 
the need for any assistance. 

"It's not a duplication of effort. 
The functions that we are running 
on this system are entirely our own 
creations, like simulations and 
employee reports that we used to 
type manually. Now, once we key in 
information, we can quickly 
manipulate the data and restructure 
reports for any level of manage- 
ment.'^ 
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For Models I, II, III; tape, disk or stringy floppy 

80-U.S. Staff 



Last year we compared two BASIC compilers 
for the TRS-80 Model II: Microsoft's BASIC 
Compiler (BASCOM) and Radio Shack's Compiler 
BASIC (RSBASIC). They are now available for 

A/?oJ? T odel L In addition > a third compiler, 
ACCEL2 from Southern Software in England (via 
Allen Gelder Software in this country), has made 
its appearance. 

The usual reason for using a compiler is to gain 
speed. This is not always the case. CBASIC, long a 
favorite of CP/M users on non-Radio Shack 
computers, is not fast. Even on machines with 
identical processors (Zilog's Z-80), the built-in 
BASIC in the Model I can outrun CBASIC in 
speed tests. 

Another reason for using some compilers is for 
accuracy. Put the following code into your 
computer and run it. 
10 A = 0.1 
20 B = B + A 
30 PRINT B 
40 GOTO 20 
Now you have a stream of numbers running down 
the video. Everything is accurate to the nearest 
tenth of a whole number, right? No? 

Now make A = 0.01 in line 10 and run the test 
again. Same results? No, they are different this 
time. At any rate, it doesn't take long to see that 
accuracy is not guaranteed with standard Radio 
™, ASIC (which we will simply call Standard 
BAbIC for the remainder of this article). Many 
versions of BASIC are plagued with the same 
problem. Some decimal numbers cannot be 
accurately represented as a binary number. In 
most cases the conversion process from decimal 
to binary and back takes care of the inaccuracies. 
However, when two binary numbers are added, 
the inaccuracy can become greater than the 
binary to decimal conversion can handle. Hence, 
the eventual loss of visible accuracy. 

In business applications where numbers must 
balance to the penny, this inaccuracy eventually 
becomes intolerable. Two possible solutions 
present themselves: Use a language which works 
in binary coded decimal, or run all numbers 
through a self-correcting subroutine. Usually the 
former solution means COBOL and the latter 
means number to string and back again, with a 



loss of time. 

The following routines demonstrate a double 
conversion correction routine. Note that this 
routine does not always work. Try the double 
precision routine with A = 0.0001. The first listing 
is for single precision numbers and the second is 
for double precision. 

Listing 1 

5 CLEAR 100 

10 DEFSNG I 

30 INPUT "VALUE OF A";IA 

40 A$ = STR$(IA) 

50 IA = VAL(A$) 

70 I = I + IA 

80 PRINT I; 

90 GOSUB 10000 

100 PRINT I 

110 GOTO 70 

10000 REM SUBROUTINE TO FIX I 

10010 1$ = STR$(I) 

10020 II = LEN(I$): 12 = INSTR(I$,".") 

10030 IF Il<7 OR 12 = THEN RETURN 

10040 13 = 0.5*10^ (-11 + 12) 

10050 I = VAL (LEFT$(STR$(I + I3),IM)) 

10060 RETURN 

Listing 2 

5 CLEAR 100 

10 DEFDBL I 

30 INPUT "VALUE OF A"; IA 

40 A$ = STR$(IA) 

50 IA = VAL(A$) 

70 I = I + IA 

80 PRINT I; 

90 GOSUB 10000 

100 PRINT I 

110 GOTO 70 

10000 REM SUBROUTINE TO FIX I 

10010 1$ = STR$(I) 

10020 I = LEN(I$): 12 = INSTR(I$,".") 

10030 IF IK17 OR 12 = THEN RETURN 

10040 13 - 0.5*10^ (-11 + 12) 

10050 I = VAL(LEFT$(STR$(I+I3),I1-1)) 

10060 RETURN 
By adding these routines, execution will be 
slowed considerably since the routine must be run 
each time calculations involving decimals are 
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used. Some of this lost time can be made up by 
using one of the two standard BASIC compatible 
compilers discussed later. However, the easiest 
answer for business software may be an entirely 
new language: COBOL or RSBASIC from Radio 
Shack. 

As we are considering only BASIC in this 
article, we will not look at COBOL now. 
Radio Shack Compiler BASIC 
It has previously been pointed out that 
RSBASIC "is not compatible with standard 
BASIC. However, it would be well to treat 
RSBASIC as an entirely new language. Its power 
and capabilities, while not necessarily superior to 
standard BASIC, are impressive. 

First, RSBASIC offers total cross-compatibility 
to the Model I, II and III except for screen size and 
some screen cursor control characters and 
commands executed as CHR$ functions. 

Second, there is no longer the lack of decimal 
precision noted in standard BASIC. RSBASIC 
uses binary coded decimal in its functions and 
carries all real numbers to 14 significant digits 
within the range of +/- 10"« 4 to +/- 10 63 . RSBASIC 
uses the notation ** to indicate "raise to the power 
of" instead of the usual up arrow. There is also no 
single and double precision. Integers are retained 
with the same range as standard BASIC: -32768 to 
+32767. String space is no longer dynamic with 
the inherent "garbage collection" routines, but 
must now be defined as to length. Variable names 
can be as large as six significant characters. 

The third significant difference is the addition 
of sub-program > calls with their own local 
variables. Values (including entire arrays) are 
passed easily. This adds flexibility for the 
programmer who has developed a large number of 
standard routines and doesn't want to key them in 
for each new program. 

The fourth major change is in the file structure. 
While the resultant files are not compatible with 
existing standard BASIC disk files, sufficient 
technical information is provided in the manual, 
for conversion routines to be built for passing data 
via RS-232 communications channels should it be 
necessary. 

RSBASIC has a total of nine different file 
structures. Three types of files are supported: 
Sequential, Random (or Direct) and Indexed 
.Sequential (ISAM). There are three different 
methods of access for each type of file: Stream, 
Formatted, and Binary. Both fixed and variable 
record lengths are supported for the appropriate 
file type and access method. 

ISAM file handling has real power. This method 
precludes the necessity of sort routines if handled 
properly. ISAM files are also accessable from the 
Radio Shack COBOL language, now also 
available to the Model I and III user. 
Microsoft's BASCOM 
BASCOM has been criticized for excessive 



space consumption. Microsoft has re-written the 
compiler and alleviated the problem somewhat. 
To do this, they created a run-time module 
which must be used with the compiled program. It 
is this run-time module which makes possible the 
space savings over the earlier version. Updates for 
registered owners are available from Microsoft's 
Consumer Products Division. 

BASCOM's features are continually expanding 
as Microsoft further develops and refines this 
excellent BASIC. Now capable of compiling to 
version 5.2, it includes such niceties as 
WHILE-WEND, which essentially duplicates 
leaving a FOR-NEXT type loop in the middle, but 
cleans up stack space. Modules may be merged 
into the source with the %INCLUDE/i7e/iame 
feature, although variables are not localized to the 
module. CALL replaces the USR function and is 
used to link machine language modules developed 
by the FORTRAN or disk EDITOR/ 
ASSEMBLER packages. 

Speed is claimed to be three to eight times 
greater than standard BASIC. Space is still 
critical. Stack space, rather than string space, is 
cleared, as in Radio Shack's Compiler BASIC. 

The real plus comes from the compatibility with 
existing software. Except in a few instances where 
some complex contortions take place or space is at 
a premium, BASCOM will compile standard 
BASIC code without fail. 

Yet, the major shortcoming of this compiler is 
still in decimal to binary number conversion. 
Microsoft also authored the standard BASIC and 
BASCOM. Both exhibit the same problem with 
accumulated inaccuracy with decimal numbers. 
Microsoft is reportedly working on a new 
compiler which will use either binary coded 
decimal or another method to overcome accuracy 
problems. 

Allen Gelder's ACCEL2 
This compiler is the least expensive of the three 
and is designed to work with tape or Exatron 
Stringy Floppy systems of 16K or larger and disk 
systems of 32K and up, Models I and III. 

ACCEL2 is not a complete compiler in that it 
doesn't compile the full program. Like the 
Compiler BASIC and BASCOM, it also requires a 
run-time module. However, this module can be 
made an integral part of the program and there 
are no royalty requirements for budding 
programmers who wish to sell and protect their 
source code. 

Once a program is compiled, the results are 
impressive. It was used extensively in spacing 
programs in a book recently published by 
80-Northwest Publishing Inc. The spacing 
program used is "Spacer", by Lou Pa. A run-time 
comparison of Spacer spacing itself was 16 
minutes, 55.9 seconds under standard BASIC and 
3 minutes 52.6 seconds after compiling with 
ACCEL2. The improvement is a ratio of 4.37. Due 
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Model I and Model III 
Must have Level II 
Basic or Model 
III basic. 




Designing a computer that people could use in business and leisure, 
without spending alot of money was once a problem. Thanks to the 
TRS-80* there are now over 200,000 Microcomputers in homes and 
business today. 

Unfortunately in keeping the price of the TRS-80 down, the Random 
Access Memory was kept down to only 17K. Yes. 17K. (16K User Memory 
and IK Video Memory. 128 x 48 or 6,144 Independently controlled dots.) 
BUT WE'VE CHANGED ALL THAT. 

MOW HIGH RESOLUTION GRAPHICS 



*r < - f 



YOU'VE ME¥BH SEEM BEFORE. 

• Hardware total screen inverse video 

• Two modes of density: 

384 x 192 or 192 x 192 for Model I 
512 x 192 or 256 x 192 for Model III 

• Every dot can be set, reset or tested. 

• 12288 bytes Video Memory 

• Select normal, high or very high resolution with or 
without inverse video via output port. 

• Disable Mikeeangelo's memory via output port. 



*1 MIKEEANGLEO is a trademark for Mikee Electronics Corp. 

*2 TRS-80 is a trademark for the Tandy Corp. 

*3 Opening your TRS-80 will Void the limited warranty. 

"4 90 day warranty, full refund or replacement. 



MIKEEANGELO is 16 times better with the Model III 
and 12 times better for the Model I. 

That's 512 x 192 or 98 f 304 dots for Model III, 

_ and 384 . 7 X . 192 or 73 f 728 dots for Model L 
MIKEEANGELO connects to your TRS-80 easily.' 3 You can do it 
yourself with our instruction book in minutes and a handy tool kit is 
available, if you need one for $15. Please specify Model I or III 
TRS-80 

Order Now For Only $340. Complete 

Order today complete with power supply, case, software and excellent manual for $340 Check or 
Money Order please '4 

Or write for free booklet and more information. 




MIKEE ELECTRONICS CORPORATION 

P.O. Box 3813 Bellevue, Washington 98009 

Telephone 206/451-0574 

Sorry no CO.D Stock to 60 days for delivery. 
Washington residents must add 5.4% sales tax. 
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AND MUCH, 



UCH MORE! 



AUTOTERM— The ultimate TRS-80^ terminal package that 
exploits the full capabilities of your computer and the 
MICROCONNECTION® with Autodial/Autoanswer. It has ALL 
the features of the "other" smart terminal programs, plus: 

• Dials MICROCONNECTION® from terminal 
• • Allows full I/O translation 

• Complete modem control and handshaking 

• Paged screen scrolling 

• Spooled printer output 

• Parity, overrun and framing errors statuj 

• Fully user-configurable 

• Includes 77-page manual 

• Text editor and hex conversion utitftws 

• Requires TRS-80 Model I or H ( ^flF an( 
. p r j ce __$99.50. Documentation jjjj' e— %i 

SMART SERIES SOFTWARl4||i 
M ICROPERI PH ERA|«OR PORATf 
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glisk drive 



All terminal programs 
upload/download, two us 
message entry, transfer, 
mats screen line left 
upper/lower case drivers, 
keystroke entry, buff 
and PENCIL, 
have a word 




manual 
iages, 
irches; 
isfer 





SMART 80D 
Requires 
RS23 




atic 
prompt 
files, for- 
selection, 
*£pfcP key, ''MfflP' function for 
rtpuft; corswtlWe with SCRIPSIT 
gen^ajftttwihose who do not 



jpUWNWd alone or FREE * 
onl™l drive. Available for both 
MICRCCONNECTION® 

SMARM^C (cassetteh*4aa95 purchased alone or FREE"* 
RfflfPes Level II 16rv48K«ystem. Available for both RS232 
.fiPBuss-d^dingMlcSbCONNECTION;" 

^^k|f^fcer)— $29.95 purchased alone or FREE* 
f M ill fed only smart terminal program for the EXATRON 
"Stringy Floppy ' Requires Level II 16K plus one ESF drive. 

SMART HID pBl L -$49.95 purchased alone or $20.00 with 
purchase of WICROCONNECTION. 
The FIRST smart terminal program for the Model III. Offers 
popular features of SMART 80D plus several new features 
associated with the Model III. Requires Model III 32K plus 
one disk drive and RS232 board. 

SMART IMC (cassette)— $29.95 purchased alone or FREE* 
The FIRST cassette-based smart terminal program for the 
Model III. All the power of SMART 80C plus numerous other 
features. Requires Model III Level II 16K plus RS232 board. 

*One software package included with the purchase of each 

MICROCONNECTION.® 
* Trademark of the Tandy Corp. 

the micropenpheral corporation 



2643 151st PI. NE 
Redmond, WA 98052 
206/881-7544 
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to the fact that Spacer, as it appears in the 
magazine has so many remark lines, the compiled 
version actually was over 3K smaller. Spacer, as it 
appears, is 8,996 bytes long; compressed by itself it 
is 2,655 bytes and compiled by ACCEL2 it is 5,792 
bytes. These figures are well within those claimed 
for it. Since ACCEL2 compiles standard BASIC 
and uses numerous ROM routines, the inaccuracy 
problem is still present. 

Conclusions 
ACCEL2, BASCOM and RSBASIC all benefit 
from good program design. Poorly designed 
programs are going to run slower and be harder to 
debug. Staying within conventions dictated by the 
compilers is a wise practice. The first time you use 
ACCEL2, you may be frustrated by your own 
programming techniques. Just make sure to clear 
and define your variables early in the code (like 
the first or second line). The compilers do not 
compile your program in the same sequence as the 
program is executed, but rather in line number 
sequence. Further, the compilers refuse to 
recognize more than one NEXT statement per 
FOR statement. This practice, although not 
widespread, is becoming more prevalent and is 
hard to debug if unexpected. 

There are some rather clear preferences in this 
set of compilers. For the hobbyist and person who 
wants to limit his expenditures, and for those 
limited to tape or Stringy Floppy, ACCEL2 is the 
ideal choice. It is easy to use, does what it was 
intended to do (improve speed), and is the least 
expensive. 

RSBASIC is a must to programmers of business 
software which requires complete precision. While 
it is a new language, it certainly does have its 
benefits over standard BASIC and the other 
compilers. 

Microsoft's BASCOM is the most expensive of 
the three. However, it is a full compiler and will 
increase performance as much, if not more, than 
ACCEL2. The early complaint about space is no 
longer the critical problem, although space 
requirements are slightly higher than ACCEL2. 
The compatibility with modules produced by 
FORTRAN and the Disk Editor/ Assembler (not 
Series I or any of the modified tape versions) 
makes BASCOM a good addition for the serious 
programmer who is not into business 
applications. H 

ACCEL2, Allen Gelder Software, Box 11721, San 
Francisco, CA 94101 (415) 387-3131, 32K Tape or 
Disk Model I or III $88.95 plus $2 s/h 

Compiler BASIC, Radio Shack #26-2204, 48K 
Disk Model I and III, $149.00; #26-4705, 64 K Disk 
Model II, $199.00 

BASIC Compiler, Microsoft Consumer 
Products, 400 108th Ave NE, Suite 200, Belleuue, 
WA 98004, 32K Disk Model I, $195 plus s/h, 64K 
Disk Model II, $395 plus s/h 
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ini-Disk Storage Systems for TRS-80* Comi 

Offers More. 
Charges less 



iters 





Check this iine-by-IIne com- 
parison of Access 5-fnch 
mini-disk systems for Mod- 
el B and Model III computers. 

Nobody offers more ben- 
efits, better serwice or lower 
prices* 



1 As advertised in 80 Microcomputing. Jan 1981 



TOLL-FREE ORDER NO. 
1 -800-527-3475 1 

(orders and literature only) 

Free trial offer 

Use your brand new AFD drive system for up to 15 days. If you're not 
completely satisfied, pack it in the original shipping container and send it 
back to Access. We'll refund the price of the system (less shipping 
charges), no questions asked (No refund for misuse or improper 
handling.) 

Operating burn-in test — too 

Every drive that leaves Access is not only 100% electrically tested and 
double-checked for mechanical alignment, but it is also given a 'full 48- 
nour operating burn-in test. You'll find a test list — checked and signed by 
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AMI 


















80-track 
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one of our competent technicians — in the drive carton. If a drive has latent 
defects, the burn-in life test will weed them out. The drives we ship just 
keep on running. And running. And running. 

About our warranty 

Venus de Milo has about the right number of fingers to count our warranty 
returns. Nevertheless, your new drive system is covered by our compre- 
hensive 90-day limited warranty. The details are spelled out in the illus- 
trated users manual included with each AFD drive system 



Software galore! 

Games. Business programs. System software. We sell many of 
the best TRS-80* Model I and Model III programs, and at com- 
petitive prices. Make Access Unlimited your one-stop shopping 
center for all of your TRS-80* software, hardware and accesso- 
ries. Save big! Call our toll-free order number, 1 -800-527-3475t 
for free descriptive literature. 



USE YOUR CREDIT CARD AND SAVE! VISA AND 

► MASTER CARD CHARGES ARE NOT DEPOSITED UN-^ 
TIL THE DAY YOUR ORDER IS SHIPPED. CALL NOW*! 
TOLL-FREE, 1 -800-527-3475t 



the DOUBLER-H™ 

Percom's new plug-in adapter for your Expansion 
Interface stores almost twice the data on a diskette 
track as a single-density system. You can store up to 
four times more data — depending on the type of 
drive — on one side of a diskette than you can store 
using a standard Model I mini-disk drive. Other 
features; Reads, writes and formats either single or 
- double density minidiskettes. • Runs TRSDOS*, 

NEWDOS+JPercom OS-80™ or other single-density software without 
changing either software or hardware. Switch to double-density when 
convenient. • Includes DBLDOS™, a TRSDOS* compatible double- 
density operating system. • Includes on card, high-performance data 
separator circuit. • Installs without rewiring or trace cutting. • Introductory 
price, including DBLDOS and format conversion utility, only $159.95. 
fr> Permits Model III software to be read on Model I computers. 4 




DATA SEPARATORS 

This PC board plug-in adapter for the TRS- 
80* virtually eliminates data read errors 
(CRC error — Track locked out!) which 
occur on high-density inner disk tracks, a 
problem that has plagued TRS-80* sys- 
tems. The Percom Data Separator™ is in- 
stalled in the Expansion Interface without modifying the host 
system. Caution: Opening the TRS-80* Expansion Interface may 
void the limited 90-day warranty: $23.95 




Printer Bargain: Microline-80 $399.95 (re g . $446 oo> 

Features: ® Prints 96 ASCII characters, 64 graphic characters 

• Throughput is 80 cps ® Use roll paper, fan-fold, individual sheets 

• Printhead is rated at 200 million characters • Lightweight, compact 
dependable. 

Cable (parallel port): $24.95 



Percom System Desks 

Features: Modular design permits arrangement suited to each user's 
needs • Styling and construction are elegant furniture quality — 
colors are Tandy-compatible pumice and black • Units knock down 
for UPI shipping, easy "carry-out" handling • Prices start at only $1 1 5 
for desk, $144 for printer stand. Optional under-desk bay, equipment 
drawer and desk-top riser available. 



How to Order Order by calling Access Unlimited toll-free on 1 -800-527-3475t . 

Mail orders also accepted. Orders may be charged to a VISA or MasterCard account or paid by a 
cashier's check, certified check or money order. We accept COD orders with 25% deposit. Sorry, 
we cannot accept personal checks. We pay shipping and insurance charges on orders over 
$1,000.00. #dd approximate insurance and shipping charges for under $1,000.00. If in doubt 
about these charges, ask when you call in your order. Texas residents include 5% sales tax. 
Minimum order $20.00. Allow 2 to 4 weeks for delivery. -(Texas residents call (214) 690-0206 

I.fnn^c l?,?o e n~,~ it6d Com P an y- * RADI ° SHACK and TRS-80 are trademarks of Tandy Corporation. ™, rademark of Percom Data Co |nc 

ALL PRICES AND SPECIFICATIONS SUBJECT TO CHANGE AND ALL OFFERS SUBJECT TO WITHDRAWAL WITHOUT NOTICE. 



ACCESS UNLIMITED 

401 N. Central Expressway #600 
Richardson, Texas 75080 



^trademark of Apparat Corporation. 
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Expand your color computer's memory without hardware 



R. Wayne Day, Blue Mound, TX 



One of the most frustrating things 
I saw upon unwrapping my brand- 
new Color computer, was the result 
when I asked it how much free space 
memory was available. ' 

Free space ,is the amount of 
memory available for you to fill with 
programming, not counting the 
"overhead" the computer needs to 
run. 

"PRINT MEM", I innocently 
commanded. 

"8487 - OK?", said the computer. 

Heck no, it's not OK! I bought a 
computer advertised as having 16K 
worth of RAM (Random Access 
Memory), and it tells me I only have 
8487 bytes left... 

Well, the people who designed the 
Color computer may have had a 
different idea in mind than I did, 
because they thoughfully decided 
they would ''protect" 6.1 K of 
memory for graphics. They have 
broken it down to four pages of 1536 
bytes for each page, which are 
unavailable for you to use without 
some operator override. 

For those among us who are 
having their first computer 
experience with the Color computer, 
I'll digress a little bit to explain 
some facts of life about these 
monsters. For those geniuses 
amongst the rest - go have a drink, 
and we'll be back with you in a 
couple of moments. 

Why would you want to protect 
something in RAM, and what's all 
this about overhead? 

Well, first off, a couple of 
definitions - very basic, but very 
important. 

RAM is the abbreviation for 
Random Access Memory. You can 
read from this memory, or more 
importantly, write new data into the 
RAM; such as a new program. 



ROM, on the other hand, stands 
for Read Only Memory. The only 
thing that can be done with the data 
in this type of memory is to read it 
and act upon it. It cannot be 
changed or modified! In fact, the 
only way to change ROM is to 
program a new one entirely, from 
start to finish. 

The BASIC and Extended BASIC 
language is stored in two ROM 
integrated circuits in the Color 
computer, but without some RAM, 
the chips would just be little pieces 

of plastic. 

"Why 'zat?'\ you ask. 

Because it is necessary for a 
computer to be able to keep track of 
itself, to keep track of where in the 
program it currently is, to remember 
what the current value of the 
variable "A" is (i.e., A=13), a 
computer must provide a certain 
amount of RAM for what is 
commonly called overhead. 

Did you ever wonder how the 
computer remembers that line 10 in 
your BASIC program comes after 
line 9? Without some overhead 
RAM, it couldn't. 

OK, the geniuses are back from 
their drink now. Let's continue. 

In the case of the Color computer, 
high resolution graphics were 
believed to be a hitfh drawing card 
for the product, and they very well 
may be for some people. 

For a game programmer, the 
protection of four pages of video 
memory may not be enough if he 
wants to do some fancy animation. 

For example, if a program 
continually erases, then re-writes a 
video display (a lunar lander 
program is the most common 
example, where you keep the 
"Height" label, but change the data 
that tells you how high off the 



ground you are), the result would be 
quite "jerky" and not smooth at all. 

On the other hand, by protecting 
various pages of video memory, you 
could update a page that is not 
currently being displayed then turn 
around and call it up to the screen. 
Then, while you're watching that 
page, you could update the next 
page, call it up, and go on like that 
forever. 

This method of displaying video 
information would result in a 
smooth picture to the person 
running (watching) the computer. 

But, saving a lot of memory for 
video has its drawbacks if you use 
the computer like I do. 

Personally, games are not the 
reason I bought the computer. I tend 
to use the machine for keeping 
subscription and mailing lists, 
running some amateur radio 
programs that keep my station log, 
keep count of how many countries I 
have worked and gotten confirm- 
tion cards from, finding out what 
direction it is from my house to any 
point on Earth (so I keep my 
antenna pointed in the right 
direction), etc. 

I tend to use a large amount of 
DATA statements for file searching, 
and that eats up the memory very, 
very quickly. 

But, there is hope, 

The Extended Color BASIC 
manual very briefly explains how 
you can "PCLEAR", but it doesn't 
go into too much detail. Here's what 
you need to know. 

Remember when we said you start 
out with four pages of memory that 
were protected? Well, the direct 
statement (i.e., you don't put it into a 
program, but rather type a one-liner 
directly into the computer - like 
CLOAD) of "PCLEAR 4" will also 
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reserve four pages for your display. 

Get it? "PCLEAR" = Page Clear. 

Now, suppose you don't want to 
save four pages worth of memory... 
you've got some serious number 
crunching to do and you'll be 
needing all of the RAM you can get? 

Do like the manual says and 
enter:"PCLEARl". 

This will protect only one page of 
video, or 1536 bytes, giving you a 
total of 13095 bytes to use for your 
programming. 

By the same token, if you're going 
to need more than four pages, you 
can "PCLEAR 8" to protect eight 
pages of the RAM. 

A PCLEAR8 will leave you with 
only 2343 bytes for your program 
(the same as a 4K machine). 

"So what happens if I've got 14K 
worth of program, and only 13095 
bytes when I "PCLEARl"?, you 
ask, leading me up to the "Case of 
the Missing PCLEAR". 

A little digression again. No, don't 
run off for something to drink, 
'cause we'll be right back! 

If you are like me, you didn't 
particularly like to take more math 
in high school than was absolutely 



necessary for graduation. And after 
that... forget it! 

Well, it seems that I had forgotten 
one of the first things in math. That 
is that "Zero is a number, just like 1, 
2 or 3! 

For example, "2 minus 2 is the 
number 0", right? Not "2 minus 2 is 
nothing", although if we were 
talking about my checkbook, it very 
well may be. 

Now, if we take a PCLEAR8 and 
subtract 1 from it, and do this seven 
times, we'll come up with a 
PCLEARl. 

If we do this subtraction again, 
we'll come up with a PCLEARO. 

"Hey, that's what I've been 
wanting... I don't want to reserve 
anything for color graphics. All 
Power to the Program!! 

OK, let's try it. Enter PCLEARO 
and see what happens. 

"Awwww, it was a good idea, 
anyway." 

Wait a minute, don't give up. Just 
because Microsoft didn't include 
PCLEARO into the vocabulary of 
the computer doesn't mean we can't 
do it. We'll just have to fool the 



computer a bit and sneak up on it. 

To do this miraculous trick, we're 
going to have to get into the 
overhead of the computer and do 
some manipulations. 

Remember PEEK and POKE? 
PEEK looks at a specific memory 
location and tells you what's there. 
POKE lets you write something 
directly into a memory location. 

Turn the computer off for about 15 
seconds. That will give it time for 
everything to reset and lose its 
memory. 

Now, turn it back on and enter: 
"PRINT MEM". It should give you 
8487, meaning you have 8487 bytes 
of free space memory. 

Now let's investigate. 
Look at memory location 31, by 
entering "PRINT PEEK(31)". Does 
it say "30"? It should. 

Enter a PCLEARl statement, 
and check location 31 again. 

"12"? Hmmmmmm. 

There seems to be some 
correlation between the amount of 
memory available and the data in 
31; with 8487 bytes available it was 
30 and with 13095 bytes it was 12. 

See COLOR, page 42 



COMPUVOICE 

Give your computer a voice of its own ■ build 
speech into your BASIC programs This machine 
language program is a must for your library - no 
hardware modification needed. $44 ; 95 



RAMCHARGER 
32K UPGRADE 

Space Invaders^ 
Meteoroids 
Space War 



EXTEND MEMORY 

FROM 16K to 32K . 

100% Compatible With 

Extended Basic 

No Soldering Or Modification 

Fits Inside Computer 

$79.95 



TRS-8© MADNESS & THE 

MINOTACJR 

The best adventure game available for the color 
computer Over 200 rooms. 6 creatures. 8 magic 
spells, loads of treasures Written in machine 
language, extended Basic not required. $ 1 9,95 



m 
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THE FACTS 



• The Best Games Available 

• High Resolution Graphics 
® Fast, Machine Language 
® Ext. Basic Not Required 

• $21.95 each, $59.95 for all three 
EXTENDED BASIC GAMES 

• LOTHAR'S LABYRINTH) 
Word Search Puzzle 

• BATTLEFLEET 
Battleship Search Game (one or 
two players) 

® SPACE TRADERS 
Galactic trading game 

$14.95/ea. 



At last, a complete description of 
the "guts" of the Color Computer. 
Specs on all the ICs. complete 
schematics, theory of operation 
and programming examples. 



NEW EXTENDED 
BASIC GAMES! 

• SUB HUNT $15.95 

• LASER ATTACK $13.95 
•ALCATRAZII $11.95 

Complete with high resolution graphics and 
sound. 

SOUNDSOGRCE 

Store music or voice from a cassette tape in the 
computer and display it on the TV screen 
Shorten it. lengthen It, modify it and replay it 
through the TV's sound system Build and test 
your own sounds for games. No hardware mods 
needed. 

$24.95 
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$14.95 



CJT1LIHES 



L%"^ 



• EDITOR/ASSEMBLER $34.95 

• SCIPER MONITOR 19.95 

• EPROM PROGRAMMER 89.95 

(Program your own ROMs for the ROMPAC port) 

• MAGIC BOX 24.95 

Load MOD l/III Tapes into the color computer 

• TYPING TUTOR 19.95 

• TEXT EDITOR 

DEALER INQUIRIES INVITED 



145 HARVARD AVE. 

Tacoma, Washington 98466 

WRITE FOR COMPLETE CATALOG 

ADD 3% FOR SHIPPING $1.00 minimum 
Allow 2-3 wks. for delivery 

(206) 565-8483 

VISA AND MASTERCARD ACCEPTED 
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Pay Credit Card Surcharges 
Pay a U.P.S. C.O.D. "Fee" 
Even Pay for the Call! 




INTERFACES; ^^^? 

IEEE $56, TRS-8Q $35, "^**«esg 

APPLE INTERFACE & CA81E $30, 
RS-232 $70 





I 



1ST €©JISt EAST COAST 

1-800-235-358! 1-800-556-^586 

CALL OMEGA AND FIND OUT WHY WE ARE AMERICA'S FASTEST 
GROWING COMPUTER SALES COMPANY! 




AMY 



SmBSBSEESHaSES ■■ ■■ ^ 
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ANADEX 
$ 1249 




DIABLO 630 
$1995 



ATARI 800 32K $ 749 




Tractor option 
$ 245 



NEC 12" MONITOR 
$ 229 
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intertecsuperbrain84kram 

qdsuperbrain 

NEC §510 SPINWRITER <7710) 

NEC 5520 8P$NWRi?ER{?7 ) 

NEC 5S30 SPtNWRITER f773 }) 

NEC 12" MONITOR 

GKIDATAMICROUNE-& 

OKIDATA mCBOi INE-82 i 

OKIDATA MlCROUNE-83 

DIABLO 530 UNV JlPl 

APPLE )l PLUS 481 H 

APPLE D&K< - 3. (00$ C ntroHer H 

APPLE DISK w/o Controller 

HAZELTiNE !420 

NORTHSTAR HORIZON II 32K QD 

ANADEX DP-950W9501 

7ELSVI0E0 0t2C 

FELEVIDEO920C 

ratEViDEosso 

CBM 8032 COMPUTER 

CBM 8050 DISK DRIVE 

:BM 4032 COMPUTER 
•RVI 4040 DISK DR!VS 

CBM4022 
! CBMVIC-20 

RAI (SHACK II 64K 

RADIO SHACK III *6K 

LEEDEXMMDgK 100 

USEDEX/AMDEK 100G 
! LEEDEX/AfVJDEKCQLQR-1 13" Color Monitor 

MICROTEK 10K RAMBOARO for Atari 

GUfotE SPRINT m$ if {fit Panel) 
^^^^^^^^^^^^^^^^^^^^ 
ATARI 825 PRINTER 
ATARI 850 INTERFACE 
■ATARI 810 DISK DRIVE 
ATARI e(30 j 

C&it /or price fist of ATAHi $ofiwam 
We carry tna complete fin© of Personal * 



i$ 
; $ 529 



$1139 
!* 555; 
$ 449 
$ ?99 : 
$2925 
; $1249 ; 
$669: 
$ 729 



$3jfe£6" 
;$ <fi$ 
$ 139 
$ 169 

IS -329- j 
$70 



i $ 349 i 

1$ 650: 

$ 139:; 
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We Accept C.O.D.'s • Stock Shipments Same Day or Next 
No Surcharge for Credit Cards • AH Equipment Factory Fresh with M FT Warranty 



WBCT COAST 

1-800-21 1581 

OMEGA SALES CO. 

3533 Old Conejo Rd. #102 

Newbury Park, CA 91320 

1-805-499-3678 

CA. TOLL FREE 1-800-322-1873 



OMEGA I 



BAST C0J1ST 
«@@-SSS«?S8S 

OMEGA SALES CO. 

12 Meeting St. 
Cumberland, Rl 02864 
1-401-722-1027 
Circle # 24 




AMY 



for computer 



continued from page 39 

That's right, because 31 contains 
the information that is looked at 
when you PRINT MEM. The BASIC 
looks at 31, does some division and 
multiplication, and Voila!, there you 
are, instant memory. 

However, just because the 
computer says you have a certain 
amount of memory available, 
doesn't make it so. 

Do this, exactly in this order, and 
you will see: 

1. PRINT PEEK(31) (ENTER) - 12? 

2. POKE 31,6 (ENTER) 

3. PRINT MEM (ENTER) - 14631? 

4. LIST (ENTER) - There's nothing 
in there, so it will just say "OK". 

5. PRINT MEM (ENTER) - 14631? 

6. RUN (ENTER) - Again, with 
nothing in the program it will just 
say "OK". 

7. PRINT MEM (ENTER) - ????? 
Whoa! How did we lose the 

memory, when we didn't put 
anything into the memory? 

Well, location 31 is just a mailbox 
where the computer temporarily 
deposits the memory information. 
After you hit "RUN", the computer 
resets all its pointers and counters, 
then checks everything against 
everything else, decides there isn't 
anything for it to do, and says 
"OK". But, one of those pointers it 
reset was the one that showed how 
much free memory was available. 

"All right, wise guy. How do I get 
it in there and keep it in there?" 

Well, assuming you would like to 
have 14631 bytes of memory 
available for your programs, you'll 
have to go in and POKE that "6" we 
put in 31, to a total of 4 places. ' 

The data in memory locations 25, 
27, 29 and 31 are all set to the 
memory that you have protected. 

Don't believe me? Since we're still 
in PCLEAR 1, PEEK at 25, 27, 29 
and 31 and see what you get. They 
should all give you "12". 

Now, let's do one thing before we 
whiz everyone with our magic. 
Enter a PCLEAR 2 statement, then 
PEEK at 25, 27, 29 and 31 again. 

Do they all say "18"? 

They should, because for each 
increment of PCLEAR, the count of 
the data in these locations increases 
by six. , 

"Now I know what to do! I'll just 
subtract 6 from a PCLEAR 1 and 
that'll do it - instant PCLEAR 0." 

Try it and see if it works: POKE 



25,6: POKE 27,6: POKE 29,6: POKE 
31, 6 (ENTER). 

"PRINT MEM" should respond 
with 14631, and this time it isn't a 
temporary gain, it's locked in tight. 

But, since you think it works in 
place of PCLEAR 0, we could do the 
same thing with the values of 
PCLEAR 1-8 and accomplish the 
same thing, just taking a bit longer 
to do. 

For some reason, it doesn't work 
that way. The only POKE routines 
I've been able to get to work, are the 
POKE "6"... anything else causes 
the monster to misbehave, badly! 

"But that's kinda long to 
remember each time I want to use 
the computer. Isn't there a shorter 
way?" 

First off, unless you either power 
down the computer, or use another 
PCLEAR value in your program, 
you'll have the full 14631 bytes 
available for each program you use. 



And yes, there is a shortcut, 
fortunately. First, power down your 
computer and wait 15 seconds, then 
turn it back on. Now, enter: POKE 
25,6:NEW - all in one line. 

A check of memory should also 
show 14631, right? 

What's happened here is that a 
routine in the BASIC ROM has done 
the same thing you were doing- 
checking the value in 25 and 
resetting all of the other pointers in 
27, 29 and 31 to match. 

"Gee, computers are smart!" 

Be sure to expand your memory 
before you begin programming if 
you think you will need the extra 
space. Once you're under way, you 
can't change your memory with this 
routine and keep your program 
intact. 

"Why not?" Well, I didn't promise 
to tell everything about the Color 
computer. You just got 1500 bytes 
for free, m 



MEMORY SPACE 


1 
AVAILABLE WITH 


DIFFERENT 


"PCLEAR" STATEMENTS 


P CLEAR 8 


rr 


2343 


P CLEAR 7 


s 


3879 


P CLEAR 6 


B 


5415 


P CLEAR 5 


= 


6951 


P CLEAR 4 


= 


8487 



(PCLEAR 4 IS THE NORMAL 
POWER UP CONDITION) 
P CLEAR 3 = 10023 
P CLEAR 2 = 11559 
P CLEAR 1 = 13095 
"PCLEAR O" = 14631 
C PCLEAR O = POKES INTO 
MEMORY LOCATIONS 25 s 27 
29 AND 31) 
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shift for 
UPPERcase 



For Model I with lower case installed 

William R. Bell, El Granada, CA 



If you have a lowercase 
modification in your TRS-80 Model I 

Level II and a simple driver, you 
may find that you produce 

lowercase when you press the shift 
key with a letter. Jhis is reverse 

from a typewriter, which normally 
will produce an uppercase letter 



when used with the shift key. 

This hardware modification will 
give you a switch-selectable 
uppercase or lowercase when used 
with the shift key. The keys, other 
than letters and the @> key, are not 
affected. Two integrated circuits 
(IC's) are added to the keyboard. 



The circuit is shown in Figure 1. 
The two NOR gates decode the 
keyboard and control the latch. The 
latch locks the shift keys in the 
inverted position (as if pressed) 
when a letter or the @ key is used 
and non-inverted position (not 
pressed) when any other key is 
pressed. 
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TRS-80 Model II, with 

20" Keyboard 

Companion 




Construction 
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TRS-80 Model I, with 
16" Keyboard Companion 



Use one of these new computer copy stands and you'll 
realize the efficiency and operator comfort a P-KAY stand 
provides. Keeps the work directly in front of the operator (not to 
the neck-craning left or right!). Models to fit virtually all 
computer terminals with detachable keyboards including 
micros, minis, main/frame terminals, dedicated word pro- 
cessors, the APPLE . . . AND INCLUDING THE TRS 80 
MODELS SHOWN ABOVE. 

The P-KAY installs in minutes without tools. The all steel 
pedestal or "riser" provides sturdy lift. The guideline is non- 
magnetic: place floppy diskettes or mag tapes on it without 
worry of erasure or damage. 

FSI is a major distributor for P-KAY Products, with stock on 
hand. Contact our Reseda office for details. 



TRS-60 Model II, 
version for Terminals 
w/slanted screens 
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TRS-80 Model I with 

P-KAY Components in 

position 




See FSI in Booth 305, 

MINI-MICRO COMPUTER CONF./EXPO November 2, 3, 4 

Anaheim Convention Center 



6901 Canby Avenue, Reseda, CA 91335 
Los Angeles Phone (213) 705-4202 

-=T =J=-=- 2680 Bayshore Frontage Road. Suite 1030 

- Mountain View. CA 94043 (415) 962-9275 

LARGEST MASTER DISTRIBUTOR FOR VERBATIM REMOVABLE MAGNETIC STORAGE MEDIA 




The switch locks the shift keys in 
the original position to make the 
keyboard act like the original 
regardless of which key is pressed. 
Chips Zl, Z2, Z3 and Z4 are spare 
inverters on the keyboard. I have 
not given any pin numbers on these 
inverters because my keyboard (and 
possibly yours, also) does not match 
the schematic in the TRS-80 
Microcomputer Technical Reference 
Handbook. Locate the signals at the 
ribbon cable connector as per the 
schematic and follow the traces 
back to the inverter pins for your 
own modification. 

In my modification, I mounted 
two IC sockets on the left side of the 
keyboard by drilling holes for the 
socket pins. I then glued the sockets 
to the keyboard with the pins 
extending through to the other side. 
Then, turning the keyboard over, I 
wired the socket pins to the 
keyboard IC pins. The traces to the 
shift keys were cut. The shift keys 
were wired together as shown in 
Figure 1. If the spare inverter pins 
are connected to traces, cut these so 
the inverters are isolated. 

Figure 2 shows an alternate 
hookup that uses another IC instead 
of the spare inverters. This is an 
XOR gate connected as a 
programmable inverter. The rest of 
the circuit is the same. If this 
modification is mounted on a 
separate board, the XOR gate will 
reduce the number of wires to the 
keyboard. 

You will find that with the switch 
set for shifted uppercase, you can 
stop the scroll of a listing with the @ 
key instead of the shift-@ 
combination. 

If you have any questions, feel 
free to write directly to me at my 
address. Please enclose a 
self-addressed, stamped envelope 
for my reply. H 

William R. Bell, PO Box 1231, El 
Granada, California 94018 
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DISK DRIVES 

40 & 80 TRACK 

as low as*drWjJm95 



NEW LOW PRICES 

Thanks to you our sales volume has 
allowed us to cut costs and we're pass- 
ing the savings along. We offer the best 
disk drive value in the market place. 
Reliability, features and cost tough to 
beat. We deliver... and we stand behind 
our products. AEROCOMP is the only 
manufacturer to offer FREE TRIAL! Buy 
Aerocomp drives today. You deserve the 
best. 

BEST FEATURES 

* Fast 5 ms. track-track access time. 

* Operates single or double density. 

* "FLIPPY" feature for lower media cost 
(40-1 & 80-1). 

-k Head load solenoid. 

* Disk ejector. 

-k Easy entry door. 

* NEW EXTERNAL DRIVE CABLE 

CUNNhC I ION. |no longer need to remove the 
cover to hook up cable) 



I VE KIT 



Includes the following: 
(1) Disk Controller Board, Double Densi- 
ty, (2) Dual Power Supply (handles two 
drives), (3) Drive Mounting Brackets & 
Shield, (4) all necessary hardware, cables 
and connectors and (5) installation in- 
structions. 

May be used with AROCOMP bare 
drives. DOSPLUS operating system 
available S89.95. 



SPECIAL PRICE 



,95 



S3 00 for shipping & handling 



ORDER TODAYI 

• 40-Track Drive $299.95 

• 80-Track Drive $429.95 

• 40-Track "FLIPPY" Drive. . . . $329.95 

• 80-Track "FLIPPY" Drive. . . . $449.95 

• 40-Track Dual-Head Drive. . $449.95 

• 80-Track Dual-Head Drive. . $579.95 

All above drives are complete with silver enclosure, power supply 
and external drive cable connection 1 1 5 VAC 50/60 Hz 230 VAC 
50/60 Hz available on special order 

• 40-Track Bare Drive $269.95 

• 80-Track Bare Drive $399.95 

• 40-Track "FLIPPY" Bare Drive$299.95 

• 80-Track "FLIPPY" Bare Drive$4l9.95 

* SPECIAL PACKAGES* 

STARTER A $339.95 

40-Track Drive, 2-drive cable, TRSDOS 
2.3 Disk & Manual, Freight & Ins. 

SRARTER B $369.95 

40-Track "FLIPPY" Drive, cable, TRSDOS 
2.3 Disk & Manual, Freight & Ins. 

COMBO C $465.00 

40-Track "FLIPPY" Drive, 2-drive cable, 
NEWDOS/80 or LDOS, Freight & Ins. 

COMBO D $585.00 

80-Track "FLIPPY" Drive, 2-drive cable, 
NEWDOS/80 or LDOS, Freight & Ins. 

COMBO E $709.00 

Two 40-Track "FLIPPY" Drives, 4-Drive 
cable, TRSDOS 2.3 Disk & Mannual, 
Freight & Ins. 

COMBO F $999.00 

Two 80-Track "FLIPPY" Drives, 4-drive 
cable, NEWDOS/80 or LDOS, Freight & 
Ins. 

COMBO G $909.00 

Two 40-Track Dual-Head Drives, cable, 
TRSDOS 2.3 Disk & Manual, Freight & 
Ins. 

COMBO H $1299.00 

Two 80-Track Dual-Head Drives, cable, 
NEWDOS/80 orLDOS, Freight & INS. 
DOSPLUS available with any special 
package. 

Adds 5 00 per drive for shipping & handling [Cont US) 

FREE TRIAL OFFER 

Order your AEROCOMP Disk Drive and 
use it with your system for up to 14 
days. If you are not satisfied for ANY 
REASON (except misuse or improper 
handling), return it, packed in the 
original shipping container, for a full re- 
fund. |Special packages will be perforated) We have 

complete confidence in our products and 
we know you will be satisfied! ORDER 
TODAYII 



WARRANTY 

We offer you a 1 20 day unconditional 
warrenty on parts and labor against any 
defect in materials and workmanship. In 
the event service, for any reason, 
becomes nescessary, our service depart- 
ment is fast, friendly and cooperative. 

100% TESTED 

AEROCOMP Disk Drives are completely 
assembled at the factory and ready to 
plug in when you receive them. Each 
drive is 100% bench tested prior to ship- 
ment. We even enclose a copy of the 
test checklist, signed by the test techni- 
cian, with every drive. AEROCOMP 
MEANS RELIABILITY!! 

ORDER NOWII 

To order by mail, specify Model 
Number(S) of Drive, cable, etc. (above), 
enclose check, money order, VISA or 
MASTERCHARGE card number and ex- 
piration date, or request COD. ship- 
ment. Texas residents add 5% sales tax. 
Add $5.00 per drive for shipping & handl- 
ing (Cont. US). Please allow 2 weeks for 
personal checks to clear our bank. No 
personal checks will be accepted on 
COD. shipments-cash, money orders or 
certified checks only. You will receive a 
card showing the exact C.O.D. amount 
before your shipment arrives. Be sure to 
include your name and shipping address. 
You will be notified of the scheduled 
shipping date. Your bank credit card will 
NOT be charged until the day we ship.!! 



WRITE AEROCOMP TODAY 
FOR MORE VALUES III 



CALL TOLL FREE FOR FAST SERVICE 
(800) 824.7888, OPERATOR 24 

FOR VISA/MASTERCHARGE/C.O.D. ORDERS 

California dial (800) 852-7777, Operator 24. Alaska 
and Hawaii dial (800) 824-7919, Operator 24. 
TOLL FREE LINES WILL ACCEPT ORDERS ONLYI 

For Applications and Technical information, call 
(214) 337-4346 or drop us a card. 



TRS80 is TRADEMARK of TANDY CORP 



Dealers inqiries invited 

Redbird Airport, Bldg. 8 

P.O. Box 24829 

Dallas, TX 75224 AROCO mp/2 



Product evaluation __ 
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The Exatron Color Computer 
Interface (CCI) is the first of two 
disk systems now available for 
Radio Shack's Color Computer, the 
other being from Radio Shack. In 
this article we examine the Exatron 
unit and its associated disk 
operating system known as 
CCDOS. 



The CCI consists of two 
high-quality, wave soldered circuit 
boards. One is a Memory Expansion 
Board containing 16 type 4116 
integrated circuits (RAM), and a 2K 
Read Only Memory (ROM), voltage 
regulation and associated circuitry. 
The second board is smaller and 
contains the Floppy Disk Controller 
(FDC) circuitry built around the 
1771 FDC integrated circuit. The 
two boards are joined with a 26-line 
ribbon cable. 

The boards are housed in an 
attractive turquoise plastic case 
measuring 8" wide by 6y 2 " deep by 
2 5 / 8 " high. A short five-inch ribbon 
cable exits from the back of the case. 
The cable plugs into the program 
cartridge slot of the Color Computer. 
No power cable is necessary as 
power comes directly from the Color 
Computer. 

Directly above the ribbon cable is 
the connector for the minifloppies. 
The configuration is identical to the 
Model I and the interface will accept 
the same cable and up to four drives. 



The 32K of memory is divided into 
two sections. One 16K bank resides 
directly above the 16K user memory 
in the Color Computer. The other 
16K bank resides in the area 
normally used by the ROM program 
cartridges. The 2K ROM is 
co-resident in this area and may be 



electronically switched out for full 
use of the upper 16K RAM. 

This upper 16K does not make the 
Color Computer into a 48K machine. 
The reason is that the 48K of 
memory is not contiguous. The 8K 
Color BASIC ROM and 8K 
Extended BASIC ROM occupy the 
area between the two groups of 
RAM. Take a look at the memory 
map accompanying this article (on 
page 114). 

Although the BASIC interpreter 
will not recognize the upper 16K of 
RAM, machine language can be 
written to do so. However, some 
fancy load sequences might have to 
be written to make the most of this. 



The accompanying manual 
(preliminary, as of this writing) was 
unusually clear and complete. The 
one area of complaint regarded the 
initial check-out sequence and may 
(according to Exatron) be deleted 
from future editions of the manual. 

The instructions (as they are now 
written) tell the user to make sure 
that his color computer is working 
before plugging in the interface. 
After that is done, the computer is 
turned off and the interface 
connected. Power is again applied 
and after a momentary wait, the 
space bar is pressed. The system will 
then check out the interface memory 
and come back with the usual sign- 
on message. 

The problem was that ours didn't. 
A call to Exatron on their toll-free 
line revealed the solution. After 
turning on the system, the space bar 
is pressed several times as if you 
were adding spaces to a line. 

If you wait too long, the system 
will hang up trying to access the 
floppy disk which is still not 



plugged in; too early, and the 
system's power supply and 
associated ROM circuitry is not yet 
ready for the space bar signal. 

We came to the conclusion that if 
you press the space bar from one to 
two seconds after power is applied, 
the system will power up correctly. 

Actually, the checkout is not 
necessary and one can plug in the 
floppy disk and interface at the 
same time. Then, during power up, 
the floppy disk is accessed and if a 
disk operating system disk is 
present, the system will load and 
execute. 

Exatron informed us that those 
units sold without the disk interface 
board contain a different ROM 
which does not require the space bar 
sequence for proper initialization. 



The Color Computer Monitor 
(CCMON) contains a number of 
features. 

Accompanying this report is a 
chart of commands and features of 
the monitor. Although not 
extensive, they are complete enough 
to be useful. Coupled with the 
BASIC load and save commands for 
tape (and disk), the monitor is a 
good debugging aid for the machine 
language programmer. 

The first-time user will probably 
use one of its features to check out 
the memory of the computer and 
interface. When invoked, the screen 
clears and a changing character 
appears in the center of the screen. 
At the completion of checking the 
upper 16K RAM, the message "TOP 
BANK PASSED", will appear. The 
lower 32K takes a bit longer to 
check. 

The rest of the features are those 
common to other monitors of this 
type. 
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CCDOS 
The disk operating system is 
complete, although not as 
sophisticated as other TRS-80 
operating systems. 

CCDOS is fully resident in the 
upper 16K RAM bank. None of the 
user RAM is occupied and all DOS 
commands are usable as a direct 
command. There is no "SYSTEM" 
level and "BASIC" level as in the 
other TRS-80 models. 

Being fully RAM resident also 
means that a system disk does not 
have to reside in drive 0. This allows 
the user to dedicate a majority of his 
disks to data and programs without 
the disk overhead required by the 
operating system. 

The operating system supports 
only 35-track drives and the FDC 
only single-density diskettes. 
Future compatibility with Radio 
Shack disk software is suspect due 
to this limitation. The single- 
density also limits the amount of 
data which may be stored on any 
one disk to 87, 040 bytes of 
information. While this compares 
favorably with Model I's storage 
capacity, it falls far short of the 
Model III and Radio Shack's disk 
for the color computer which is 
advertised as holding 156,672 bytes 
per diskette. 

Since CCDOS acts as an 
extension of BASIC, well examine 
the commands as they appear in the 
user manual. The command syntax 
and file handling is very similar to 
Model I, II and III Disk BASIC. 
Also, users of the CCDOS system 
will feel very much at home with the 
programming techniques described 
for those models. 

The Commands 
The half-tracks mentioned in the 
discussion of several of the 
commands is equivalent to a Model I 
and II granule: five sectors of 256 
bytes each for a total of 1,280 bytes 
per half-track. 

CCDOS will automatically add a 
three character extension to certain 
types of programs: BIN for machine 
language, BAS for BASIC, and 
DAT for data files. These are default 
extensions based on the type of 
operation and can be overridden by 
supplying the proper extension. 
There is no provision for password 
protection or invisible file names. 

Also, in loading or saving 
programs and in opening files, the 
disk drive number must be specified 
for any drive other than drive zero. 
The system will not automatically 



search all drives as in the other 
models. 

NUDISK is the formatting 
command for CCDOS. It is not 
elegant and does not prompt for 
anything. Consequently, there is no 
disk name or creation date. The 
tracks are formatted and checked 
for flawed areas. The disk drive 
number must be specified and the 
disk is not checked for data prior to 
formatting. However, the prompt 
"ARE YOU SURE (Y/N)" is 
displayed and must be answered. 

BACKUP is also very limited, 
allowing a single-drive backup 
(with appropriate disk exchange 
prompts) or a two-drive backup. As 
with NUDISK, the "ARE YOU 
SURE (Y/N)" prompt must be 
answered and allows the operator to 
abort the operation. 

VERIFYON is a command to 
double-check diskette writes. It will 
slow down the BACKUP procedure, 
but is recommended to double-check 
disk accuracy. VERIFYOFF turns 
off this feature. 

ASSIGN sets the default drive 
number. It requires the disk number, 
to 3, to execute. As was noted 
earlier, CCDOS does not search all 
drives if the drive number is left off a 
file name. Only the default drive is 
checked. 

FREE is not a direct command, 
but a function which returns the 
amount of free half-tracks available 
on a diskette. The drive number 
must be specified or a syntax error 
will occur. 

CAT is the CCDOS equivalent of 
DIR and stands for CATalog. This 
is common to several other 
minicomputer operating systems. 
The drive number is optional, and if 
left off, defaults to the assigned 
drive. The display is simple and lists 
the drive number, the file name and 
extension, the size in half-tracks 
and the type: ASCII or Binary. 

The COPY command allows both 
single-drive and two-drive copying 
of individual files. 

RENAME is unchanged in its 
nature from other TRS-80 systems 
and renames the specified file. 

The KILL command works on 
closed files and will produce an error 
with an open file. The file is then 
closed. The catalog (directory) is not 
scrambled as with some Model I 
operating systems. 

The MERGE command is 
unchanged from the other TRS-80 
systems and allows a BASIC 
program to be merged with one in 



memory. The program to be merged 
must be stored in ASCII format. 

Some disk drives allow faster 
stepping rates than the 40 
milliseconds specified by Radio 
Shack. For those drives that can 
handle a 10 millisecond or faster 
stepping rate, the command 
FASTON will set it. If, after 
checking your drive and finding it 
cannot handle it, FASTOFF will set 
the rate back to 40 milliseconds. 

Three SAVE commands are 
available. Without any suffix, the 
system will save any BASIC 
program in memory and will 
provide a "BAS" extension if not 
specified. 

_ With an "A" suffix following the 
file name, a BASIC program will be 
saved in ASCII format and the 
default extension BAS will be used. 
If SAVE1VI is specified, a starting, 
ending and transfer address must 
be supplied. This will save the 
Binary code within those memory 
locations to disk. The BIN extension 
will be the default. The addresses 
may be in decimal -or &H hex 
format. Armed with the necessary 
addresses, any machine language 
program may be saved to disk. ■ 

BASIC programs may be loaded 
and executed directly from disk with 
the RUN filename command. If no 
extension is specified, BAS is 
supplied. As indicated earlier, only 
the assigned default drive or the 
drive specified in the file name will 
be searched. 

Four LOAD commands are 
allowed. A BASIC program may be 
loaded without any extension. The 
default BAS extension will be 
supplied if not specified. 

LOADM will load a machine 
language file. The EXEC command 
will start execution of the program. 
_ LOADR will load a ROM backup 
file, relocate it and start execution. 
With an optional ROM backup 
adaptor cable, Radio Shack 
cartridge packs may be downloaded 
to tape and then transferred to disk. 
By using the LOADR command, the 
program will be loaded, moved to 
the proper location in upper memory 
and executed, all without the 
cartridge pack being present in the 
machine. The process is multi-step 
and a bit tedious. 

LOADT allows Model I BASIC 
programs which have been saved on 
a 35-track single density diskette to 
be loaded into the Color Computer 
memory. The program can then be 
See EXATFtON on page 1 14 
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Software for TRS-oU 



NEWDOS/80 Version 2.0 

The most sophisticated DOS ever pro- 
duced for the TRS-80® Models I and III. It 
provides the user with "MAINFRAME" 
power on a "MICRO". 

Some Features available are: 

• Jobstream Control Language 

• Mod I/Mod III Diskette interchangability 

• Double Density Support on Model I 

• Pagenation of BASIC listings on the screen 

• Basic program single stepping 

• Dynamic variable manipulation 

• Multiple array sorts with BASIC CMD 

• Complete technical support provided 

All this plus much more for only 
$149.00 



THE MICRO CLINIC 

by Dave Stambaugh 
"An ounce of prevention is . . ." 
Routine system checkout will help 
prevent that dreaded loss of data, a 
thorough system checkout includes 
both Memory and Disk diagnostics. The 
Micro Clinic offers the most exhaustive 
set of routines known of for the Model I 
or III. Don't take chances with your data, 
a routine system checkout is your best 
friend. 

". . . worth a pound of cure." 



'Hr* 



Model I version 
Model III version 



$24.95 
$29.95 



UNIVERSAL TERMINAL 
PROGRAM 

^ *% 

UNi-TERM/80 

By Pete Roberts 
I The intelligent program that takes advantage I 
of the extended NEWDOS/80 commands is 
here. Supports both Model I & Model III with 
user defined translation tables, and buffered I 
upload/download capabilities. UNI-TERM/80 
supports standard RS-232 or buss decoding j 
modems. Easy way to customize your initial- 
zation parameters. 
For Model I and III $89.00 j 



ENHBAS 
(Enhanced Basic) 

By Philip A. Oliver 
Manufacturer - The Cornsoft Group 

(Adds 50 new functions, statements & com- 
mands to TRS-80 Mod. I &III. 

I Examples: 

WHILE/WEND 

3 GRAPHIC COMMANDS 

SEARCH 

WIN KEYS (auto loops) 

AND MUCH MORE 
[ See reviews in Nov. BYTE & Nov./Dec. 80 US| 
$59.95 



CHEXTEXT® 

Let your TRS-80 e do the proofreading 
on your SCRIPSIT* text files!! 

Features of this program include: 
e Complete dictionary maintenance in- 
cluding the addition and deletion of 
words. 

• Menu driven for ease of operation. 
® Spelling Checker 

• FREE expanded dictionaries avail- 
able, depending on your drive 
storage capabilities. 

NEW LOWER PRICE $59.95 



Assorted Items of interest H 

Lazy Writer (Mod I disk) $1 25.00 Wg 

Lazy Writer (Mod III disk) $1 75.00 HL 

Meal Master (Mod I & III disk) $ 24.95 ||H 

Scarfman (disk) $ 1 9.95 .'-' -:i 

(tape) $ 15.95 gp| 

Flextext I (mod I & III disk) $ 29.95 s . 

Flextext II (mod II disk) $ 29.00 |j| 

Big five games (mod I & III) :;*?* 

disk $ 19-95 WBi 

tape $ 1 5.95 |f& I 

NEW! AVAILABLE NOW 

FLEXTEXT/80 (for MX-80 Printers) 
Requires Graftrax $ 34.95 I 

Catalog your directories 

FILE DISC/80 $29.95 



SUPER SPECIAL-ONE MONTH ONLY -50% OFF ON MTC's MODI DATA MANAGEMENT SOFTWARE 

MTC AIDS III 

The best of Meta Technologies family of data management systems. This easy 
to use system allows even a novice TRS-80 user to create data files custom 
configured for many applications, from lists for mailing and cataloging to 
financial reporting and time scheduling. Easy to customize without program- 
ming, it is complete with features for adding, deleting, sorting, updating and 
printing. The flexibility will make it one of your most useful software purchases. 
MODEL I Reg. Price $69.95 Sale Price $35.00 



MTC CALCS-IV 

• More Computations ® Save Report Formats on Disk 

® Faster, and more! 

MTCCALCS Reg. Price $39.95 Sale Price $20.00 



MISCELLANEOUS SUPPLIES 

DISKETTES 

Double density, soft sectored, replacement guaranteed, Spindle/Hub 
protected. (5 'A" only) 

Verbatim Datalife 5W' 40 track $24.95 

Apparat's No Name 5W' 40 track $21.95 

Verbatim Datalife 8" model II $39.95 

PAPER 

8 1 /2"x1 1" blank white, tractor feed paper, full box $24.95 

8V4"x1 1 " blank white, tractor feed paper, half box $14.95 

14 1 /2"x11" green bar, tractor feed paper, full box $34.95 

3V*"x15/16" tractor feed mailing labels $19.95 

OTHER 
(NEW LOW PRICES) 

5 1 /4" plastic library case $ 1-95 

8" plastic library case $ 4.95 

5 1 A" Flip-sort $21 .95 

8" Flip-sort $31 .95 

1 6K memory kits $1 9.95 



MTC MERGE - III 

Combines up to 1 4 AIDS data files into a single file. Duplicates may optionally 
be purged, and sorted order of records is maintained, Machine code for speed 
makes this useful if large data files are to be created from smaller ones. 
MODEL I Reg. Price $19.95 Sale Price $10.00 

APPARAT SPECIAL AIDS - III SYSTEM 

AIDS - III + CALCS - IV + MERGE - III 
SAVE**Buy all three at one low price 

Model I Reg Price ....$128.85 Sale Price $64.45 

LIMITED QUANTITIES 

AIDS III, CALC IV, & MERGE III are trademarks of Meta Technologies. 



UNPRECEDENTED 90% DISCOUNT SALE 

On MODEL II Commercial Grade Business Software 

(LIMITED Quantities Available) 

TITLE LIST PRICE SALE PRICE 

General Ledger $300.00 $30.00 

Accounts Receivable $300.00 $30.00 

Accounts Payable $300.00 $30.00 

Inventory $300.00 $30.00 

Order Entry Processing $300.00 $30.00 

Sales Analysis $300.00 $30.00 

Word Processing $400.00 $40.00 

*AII systems include extensive situation oriented documentation, but is 
supplied on diskette only. 

•Above software sold as is and require a minimum of 64K and two 
drives. 

(Sorry, but at these rediculously low prices our usual software 
support will not apply.) 

ADD $3.00 for postage and handling for these items. 



jM& 
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-On-going Support for Microcomputers' 



4401 S. Tamarac Pkwy . Denver. CO 80237 . (303) 741-1778 . [800} 525-7674 

■ Sinpsii A TRS 80 are:,i registered trademark of Tandy Corporation 
Freight F O B Denver-call for shipping charges' Foreign Orders shipped Air Freight ' 
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Storage- lint aMx 
Mewdos/80 version 2.0 expands the ' ■: •.••-■;•• \ < ' 
capability of double density drives; 
so you'll have greater applications 
for your TRS-80® model I and HI. 

Drives plug directly info an ex-' 
pansion interface (requires Instal- 
lation of a double density control- 
ler) or the model HI disk bus with 
our single volume cable so you 
can now have over 2 megabytes of 
storage on-line with standard 
mini-floppy diskettes. Each drive 
has up to 573 free grans, for a 
total of 1,719, on a maximum of 
three 80 track drives, which can be 
added to a TRS-80 model I. Model 
Ill's can have up to 4 dual 80's 
on-line (almost 3 megabytes). 

These drives can "read" standard 
35 or 40 track diskettes using 
Newdos/80 version 2.0 which will 
allow skipping every other track. 
Drives come 
complete with 
case, power sup- 
ply and docu- 
mentation. The 
drives are priced 
at only $515 (Cat. 
Mo. 1-705, specify I or III). Mow, at 1424 
bytes per buck, it just might be the answer 
to your storage problems. Special .— Ttoo 
dual 80 track drives only $999. 





Apparatlnc. 

4401 So. Tamarac Parkway, Denver, CO 80237 (303) 741-1778 



*ON GOING SUPPORT FOR MICROCOMPUTERS' 



Basic technique 




For all models 

It happened to me again! I couldn't control 
myself! I awoke at a quarter to five with the 
answer to the problem, and I didn't want to go 
back to sleep for fear of forgetting 

So kissing my wife upon the cheek 
Up to my feet I flew in a leap. 
Down to the hall and onto the stair 
That program last night had been a bear 
I'm sure many of you have had the same 
problem. I had the program conceptualized in my 
mind. But I spent the whole evening trying to put 
it together in numbered statements with commas 
and semicolons in all the right places. But alas... It 
wouldn't work. 

Many think of the computer as intelligent. 
Well, I'm here to say ihere're wrong. 
I told it what to do - but how irreverent 
It would not go along 
It was a program that had been hobbling around 
in my mind. It was for printing mailing labels. 
Now there are probably hundreds of mailing label 
programs (I could go out and buy one for $9.95), 
but this one had a slightly different bent. 

I was producing a number of mailing labels for 
my immediate area. All labels would be in the 
same state, but they would be in about two dozen 
different cities. I wanted a program in which I 
would not have to enter each zip code. I wanted the 
computer to look up the code for each city. 

It sounded simple. Problem- There is some 
variance in the way that people capitalize names. 
Is it St. Charles or st. Charles? DuPage or Dupage? 
Dundee or DunDee? Sometimes one way and 
sometimes the other. 

The answer was simple in afternoon hours as I 
contemplated a solution while returning from 
work. But it was not destined to be that simple 
when I sat at the keyboard. I spent thirty minutes 
writing the body of the program and three hours 
trying to write the subroutine that would produce 
the zip code. I had the concept but it wouldn't gel. 
So here I sit; its five a.m. 
But when I finish it will be a gem. 
I'm excited, nearly out of control 
Victory over frustration is my goal! 



or 

17P* 



Thai Is the question 

Larry Kirengel, Elmhurst, IL 

In the wee hours of the morning my brain 
operates so clearly. It seems so wonderfully simple 
now. To be perfectly honest, I can't even remember 
what yesterday's attempt looked like. There is now 
only one way to solve this problem. 

10 NN$= ,m 

Clears "new name" 
20 INPUT "ENTER NAME"; N$ 

Enters original name 
30 LPRINT N$ 

LPrints original name 
40 FOR X = 1 TO LEN(N$) 

Sets loop to length of name 
50 T = ASC(MID$(N$,X,1)> 

Develops the ASCII code for 

the Xth letter of the name 
60 IF (T>64) AND <T<91> THEN T=T+32 

Decides if code is that of a 

captial... if so, by adding 32 it 

becomes a lower case code. 
70 NN$ = NN$ + CHR$(T) 

Changes ASCII code back into 

a letter and assembles the lower 

case name. 
80 NEXT X 

Closes the loop 
90 LPRINT NN$ 

LPrints name in lower case 
100 GOTO 10 

Reruns the program 

This little subroutine would change all the 
names into strings of lower case letters. By 
entering my data as all lower case I could 
successfully find the zip codes. Success was mine! 

Amazing as it seems, that did the trick. 

The knot in my stomach is gone, I'm no 

longer sick. 

But as you all know 

Those like us will go 

Head first when it is time for another lick! 
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You've got your computer 
hardware, but what about 
the software? Use a Com- 
puter Shopper ad to find 
what you need. Someone 
advertising in Computer 
Shopper probably has what 
you want. 



Begin your search in the 
index of Computer Shop- 
per's bargain filled pages. 
Locate the category and 
page number of items 
that interest you from 
TRS-80 and Apple to soft- 
ware and peripherals. 




minimi 




If you need help with any 
computer related problem 
whether it's an interface 
problem or advice on the 
right peripheral for a home- 
brew system, use the free 
HELP column especially 
designed for that purpose 





Start or add to your com- 
puter system by finding 
money saving bargains in 
each month's issue from 
individuals who no longer 
need their personal equip- 
ment. 

J'P UK£ TO 
0UY TWAT 
LINE PRINTER 





As you outgrow your 
system or want to trade up 
(most dealers won't take 
trade-ins), use Computer 
Shopper ads to sell your 
items to 20,000 readers na- 
tionwide for the low cost of 
12 cents per word. 




Computer Shopper is THE nationwide magazine for buy- 
ing, selling and trading Micro and Mini-computer equip- 
ment and software. Each issue has over 60 pages full of 
bargains of new and used equipment. 

You can save hundreds of dollars by getting the equip- 
ment you need from the hundreds of classified ads in- 
dividuals place in Computer Shopper every month. 

Now is the time for you to join over 20,000 other com- 
puter users who save time and money with a subscription 
to Computer Shopper. 

Subscribe today and get your first issue and a classified 
ad absolutely FREE. Type or print your ad on a plain piece 
of paper and send it along with your subscription. 

Just fill in the coupon or MasterCard or VISA holders 
can phone TOLL FREE 1-800-327-9920 and start making 
your computer dollar go further today. 



IQ19IIII 



Cut out and mail to: COMPUTER SHOPPER 

P.O. Box F115 * Titusville, FL 32780 

Yes, I'll try Computer Shopper, I understand that if I'm 
not satisfied with my first issue I can receive a full re- 
fund and keep the first issue free. 

□ 1 year $10.00 ($30.00 in Canada) 

□ I have enclosed my free classified ad. 

D I want to use my free ad later, send me a coupon. 

NAME: 



ADDRESS: 
CITY: 



STATE: . 



_ZIP: 



■ •»aaaiagiiaaBiaiiaaiiitaaiig a i >all , alaaal>laa j 



'COfllPfJTBR SHQPiiaSR 

P.O. Box F115 • Titusville, FL 32780 

Telephone: 305-269-3211 

Circle # 28 
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DIFENS 

Soft Sector Mkt. 

Mod I or III Tape, 16K 

$19.95 
Mod I or III Disk*, 32K 

$24.95 

Only Mod III version has 
Extended Graphics. 



©1981 Soft Sector Mkt. 

Mod I or III Tape $19.95 

Mod I Disk $24.95 

Mod III Disk $24.95 

- 2 Player- 10 Levels - 

Ask for upgrade info for 

INVADERS PLUS & 

TRS-SUPER INVADERS 




SCARFMAN 

B 1981 Comsoft Group 
Mod I & III Tape 

$15.95 
Mod I & III Disk 



METEOR 

MISSION 2 

by Big 5 
Mod I & III Tape 

$15.95 
Mod I & III Disk* 




felt¥ J 



mm 



by Big 5 
Mod I & III Tape 

$15.95 
Mod I & III Disk 

$19.95 





by Big 5 
Mod I & III Tape 

$15.95 
Mod I & III Disk* 

$19.95 




SUPER NOVA 

by Big 5 
Mod I & III Tape 



^Kil!II>s^ 



Mod I 8c III 

$19.9 



Disk 




INWA5ION 

by Big 5 
Mod I & III Tape 

$15.95 
Mod I & III* Disk 

$19.95 



M 



WNAR LANDER 

by Adventure 

Mod I & III Tape 

$15.95 
Mod I & III Disk 
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STAR FIGHTER 

by Adventure 
Mod I & III Tape 

$24.95 
Mod I Disk 

$29.95 



SPECIAL DIAL - Tills Month Only 
Purchase 1 Game - List Price / Purchase 2 Games - Deduct 10% 
Purchase 3 Games - Deduct 15% 

- SPECIAL DEAL applies only to games purchased from this ad, at one time, and at list price - 



CO D. - certified check, M.O or cash only. Most orders 
shipped next day. All orders must have shipping included 
Please add 2% or $250, whichever is higher for shipping 
Michigan residents, please add 4% tax. Add extra SI ,50 for 
COD Personal checks take 3 weeks to clear Out of the 
country orders add $10.00 extra shipping 
"TRS-80 is a product of Radio Shack, dlv. of the Tandy Corp, 



l €H ! OT SOFT SECTOR MARKETING, 
l&MMM INCORPORATED 

6250 Middlebelt ©Garden City, Michigan 48135 

Order Line 800-521 -6S04 

Michigan Orders & Questions 313-425-4929 



The American Express" Card p™jg™= 
Don't leave home without it " LaHHM 



ASTER CONTROL 



Copyright ®1981 Soft Sector Marketing, Inc. - Written by A. Swartz 




r Color Computer"^ 



Requries16-32K 

1 . 50 preprogrammed command 
keys. Standard and Extended com- 
mand. 

2. Direct control of motor, trace, 
and audio from keyboard. 

3. Automatic line numbering. 

4. Programmable Custom Key. 

5. Direct Run Button. 

6. Keyboard overlay for easy pro- 
gram use. 

7. Easy entry of entire commands 
into computer. 

Load Master Control into your ma- 
chine then either type in a BASIC 
program or load one in from tape 
to edit. Cuts programming time by 
50% or more $24.95 



Coming for Christmas! 

COLOR BONANZA 

50 Programs for the Color Computer. 
Less than $1.00 a program! 

Some4K some 1 6K some extended BASIC, some for non- 
extended. 

Games- Personal Programs- Utility Programs 

List $49.t§ 

Expected shipping date December 1 or before. 
Any prepaid orders received before that date will pay only $39.95 



Animated Bangman p 

He winks ... he blinks ... he almost lives! 

An outstanding game for the whole family! 



Tl< & CT UP 4 

Twin Pack - 16K Extended 

$14.95 

Expected Shipping Date - December 1 or before 



From Other Vendors 

Space Invaders, Spectral Associates 

Spaee War, Spectral Associates, *req. Joy Sticks 
MeteoroidV, Spectral Associates, *req. Joy Sticks 

Battle Fleet, Spectral Associates 

Spaee Traders, Spectral Associates 

Software Development System Horn Pack . 

Q Bug Monitor 

Disassembler (Source Generator) 

Color Computer S^ews (Latest Issue) 



$21 
$21 
$21 
$14 
$14 
$89 
$29 
$49 
$2 



95 
95 
95 
95 
95 
95 
95 
95 
50 




Non Extended BASIC 
Requires 16K 
$12.95 



COD- certified check, MO or cash only. Most orders 
shipped next day All orders must have shipping included. 
Please add 2% or $2.50, whichever is higher for shipping 
Michigan residents please add 4% tax. Add extra S 1 .50 for 
COD Personal checks take 3 weeks to clear Out of the 
country orders add $10.00 extra shipping 
"TRS-80 is a product of Radio Shack, div of the Tandy Corp. 



Sffm SOFT SECTOR MARKETING, 
iPAH INCORPORATED 
6250 Middlebelt •Garden City, Michigan 48135 
Order Line 800-521-6504 
Michigan Orders & Questions 313-425-4020 



Circle #29 



(MattatCanj) 




Captain 80 



Captain 8 



The adventures of a software secret agent in England 

© 1981 Bob Liddi! 



The moon is full. There are wispy 
clouds floating across its gleaming 
face and the Yorkshire moors 
stretch in all directions empty and 
lonely. I never did see a Werewolf 
although I cannot express too much 
disappointment at this. 

Here's Captain Eighty disguised 
as Joe American Software Producer, 
casually taking in the sights in the 
Yorkshire country north of London, 
England. The enthusiasm with 
which I was received by British 
customs at Heathrow Airport is just 
now beginning to wear off and now 
the true beauty of the English is 
beginning to settle in my sight. 

Lesson one for software producers 
escorting their wares into Great 
Britian. Carry English currency 
with you on the plane. Unless you 
know (by sight), the person meeting 
you (be he software producer, pen 



pal or whatever), do not expect 
anything but complication from 
personally importing things into 
England. The mere act of declaring 
the approximately $1700 worth of 
Adventures and Big Five arcade 
games that occupied the footlocker I 
was escorting initialized an 
interesting chain reaction. 

Import duties had to be paid. And 
something called VAT (value added 
tax), sort of a British version of 
State Sales Tax, also had to be 
shelled out. Then I had to know the 
VAT number of the client for which 
the software was destined. Now 
all that was easy enough, I simply 
had called up the British Embassy 
in Boston. It was a sweet young lady 
who'd advised me to have pounds 
and ounces and pence and stuff like 
that with me, you know, exchanged 
in America. No one told me about 



Amateur Radio Research and 
Development Corporation 

AMRAD is a worldwide club of radio and 
computer amateurs. Activities include: 
•Monthly AMRAD Newsletter 
•Amateur Networking and Protocols 
•Computer Bulletin Board System 
•Handicapped Education Exchange-HEX 
•Deaf Telecommunications Research 
•Spread Spectrum Experimentation 
•2-Meter Voice and Data Repeater 

1524 Springvale Avenue 
McLean, VA USA 22101 
Circle # 30 



Agents. I knew Elton John needed 
one, but me??? 

The Agent, it turns out, hangs 
around customs and does all that 
nasty paperwork for about 33% of 
the net bill to Her Majesty's 
Government. It didn't stop there. 
Even with the help of Graham 
Heywood, of the Algray Software 
Organization, my British host, I 
found it nearly impossible to 
explain, in understandable terms, to 
a polite, well meaning, but totally 
uncomprehending customs agent of 
apparent East Indian decent, just 
what Software was or how the little 
letters got into the computer or why 
my software wouldn't work on his 
computer. It was interesting but 
next time I'm going to disguise 
myself as an Arab tourist. 

I found the British software 
market to be fragmented into 
several noncommunicating 
factions. Loosely defined they are: 
Those who pirate software, those 
who do not need to pirate software 
because they are licensed to 
reproduce big selling programs on 
a royalty basis, but who are 
suspected of software piracy due to 
the lack of communication between 
producers, and those who import 
software from the United States by 
purchasing directly from- the 
publishers or from agents or United 
States vendors and are suspected of 
skulduggery by all the other above 
factions purely by virtue of 
association. 

The Algray Organization (my 
host), I found to be much like Acorn 
or Breeze or any of the many small 
Ma and Pa software houses in 
America. Run on sheer guts and the 
trust of a very few American 
companies willing to license them to 
produce proprietary software on 
British soil, this little outfit has 
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• Jus^ $19.95 (+ 2.05 s/h) 

• Contains a unique 
adventure generator! g 

• Famous adventures by s 
famous authors (see table of \ 
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...» 

• See if of your local dealer, j 

or order direct from: s 
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... ■ 

80-Northwest Publishing Inc I 

3838 South Warner Street j 

. Tacoma, Washington 98409 - 

(206) 475-2219 ■ 




Dealer inquiries invited 



IBM a B >>■> a O I 



copy(s) of the ADVENTURE BOOK for 
only $19.95 each, plus $2.05 shipping and handling. 
Check, M.O., VISA/MC# enclosed. COD orders accepted. 



Name. 



Address. 
City 



State. 



Zip- 



V/SA/ MASTERCARDS 



Exp Date 



Signature. 



Send to: 80-Northwest Publishing Inc. 3838 South 
Warner Street, Tacoma, Washington 98409 
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earned the respect of its customers 
and (at least some), competitors. 

Algray is currently licensed to 
produce Automated Simulations in 
England. The programs are very 
hot and the English computerist is 
assured of fresh tapes and disks 
when he buys his software. They are 
negotiating with other companies 
for rights to good programs so they 
will be worth watching. Addition- 
ally, they have developed several 
respectable programs of their own 
though none is currently available 
for export to America. 

The Software House of London, is 
another place I visited during my 
trip across the pond. Located in a 
quaint little courtyard off busy 
Oxford street in Westminster, this 
computer shoppe had represent- 
ative software from every major 
producer in the United States that I 
could think of. Adventure 
International was well represented, 
as was Instant Software, though not 
as much. It was a pleasant, 
thoroughly British establishment 
and I had a good time there. It is 
centrally located and, in my 



opinion, a good place for an 
American software company to get 
its feet wet. 

The whole time I spent in the land 
of Royalty was one great learning 
experience. The British, I 
discovered, would dearly love to be 
able to enjoy the same entertain- 
ment software we take for granted 
here in the United States, but by the 
time an imported tape passes 
through (see customs description at 
beginning of column), a $14.95 
program is pushing thirty five 
bucks!!! American software 
producers who have heard grisly 
tales of wholesale license ripoffs 
don't know who to believe and will 
only sell through export. Catch 22? 
You got it. Net result, the British 
microconsumer tightens his belt and 
waits for the famine to ease. 

The two places I visited, Algray 
and The Software House, clearly 
seem to have the ability to function 
as producing agents, paying 
royalties to host companies and 
representing them well. I was not 
privy to The Software House's book 
but did observe Algray 's. I'm a 



believer. They can do the job. 

Not every software producer can 
hop a jet and zoom off to inspect a 
client in a foreign land. So at the 
very least there will be continued 
suspicion between different 
countries until someone emerges 
with a track record. New producers, 
if approached by a foreigner who 
says he produces for other American 
companies, find out who and call 
them. Chances are you will find 
that foreigner a kindred spirit, an 
entrepeneur in another country, 
making his way as you are, to that 
golden program that will make 
everyone rich. 

The Yorkshire moors are really 
quite lovely by moonlight. Hmmm, I 
really must get a haircut and a 
manicure. There is just a hint of 
breeze in the night air and I'm 
having a howling good time here in 
merry olde England. I do have this 
urge to run on all fours. Boy ohhh 
boy. I'm going to have a tough time 
with British Air looking like this. 
They'll probably make me ride home 
in tourist. Robert Morely , I'll get you 
for this.... EI 
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VISflCCOUNT is q fully integrated business and accounting 
system designed for use in small businesses. VisRccount is 
extremely comprehensive and professional, yet it is very easy to 
use. The system is controlled (Torn a series of interconnected 
menus permitting user-friendly operation. Everything you need to 
set-up and operate the system is provided with the VisRccount 
package. 

Fill SYST6MS is able to provide you VisRccount at this incredible 
low price because it runs on so many different machines. Through 
volume sales we are able to substantially reduce our prices. 

OUR GUfSRflMT€€ - Buy both our software and that of our 
competitors (who will no doubt charge several times our price 
because they need to recapture their development cost). Compare 
the two systems and we know you'll return theirs (make sure 
they'll let you return their software). If you decide not to keep our 
system, then return it within 45 days for a full refund. Once you've 
used our system we're confident you'll be delighted. 

tMiaocomputers for Business. Applications 1979 




What ¥ou fieceiwe 

• Nine S ] A" double density disks (or six 8" single 
density disks) 

• €osy-to-use operator's manual (over 200 pages) 

• Self-study guide on bookkeeping and accounting (over 
180 pages) 

• Cassette based instruction program on set-up and 
operation 

Available for Apple*, TRS-80 I, II Si III, Osborne, 
Heath/Zenith, North Star, Vector, and most other 
CP/M computers. 

*The Apple version requires the Microsoft Z80 softcore). 
CSCfl has CBRSIC2, CP/M and Microsoft Z80 softcore) in stock 

jINVSNTOnV MflNnaCMCNT ^-•' , "''«£. 

Mill 
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Pi 



FR€€s MAILING LIST PROGRAM 

Requirements: 48K CBflSIC 2 
2 DISK DRIV6S CP/M 







Send $159 for Ihe VISflCCOUNT system 



f^l S ^fcM ^fcTl"^^! ^ Q division of Computer Services Corporation of America 
ni.V. JTJI VI ¥13 332 €ast 30th Street New York, New Vork 10016 

Order Toll Free 1-800-221-2486 
For New Vork ond Technical Number 1-212-685-0090 



ALSO 


WORD STAR 


$290 


SUP6RCAIC 


$249 


DATA BAS€ SVST6AA 


$190 


CP/M for TRS80 MODCl II 


$99 


TCRMINAl PROGRAM for 




MODGL II CP/M 


$39 



Name 



Address 



Citu/State/Zip 

D Master Charge □ Visa □ American express 

No. . ^ expires. 



©1981 Computer Services Corporation of America 
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For Models I, II, III and color computer 

Richard M. Straw, Altadena, CA 
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There are many occasions in the life of 
a computer programmer that call for 
getting things in order - that is, in some 
desired sequence. This may be 
alphabetizing a mailing list, printing 
mailing labels in zip code order, 
arranging checks in order by payee or 
invoice number or some other criterion. 
The most common approach is 
probably to sort the list according to the 
desired "keys" when it is time to make 
the list. Several sort procedures have 
been described in the computer literature 
both for the pros and for us amateurs. 
Prominent among them are the bubble 
sort, the Shell sort and the Quicksort. 
Each has its advantages and 
disadvantages. Arguments about the 
relative speeds of new routines will 
probably continue for some time. 

A realistic alternative is to keep the 
lists in order in the first place. While it 
might seem possible to build the list in 
the correct order, unless you have the 
information in that order when you 
start, this approach requires constant 
moving of data around in the file. It is 
very uneconomical for most purposes, 
especially if you must insert an item near 
the beginning of the list and move all the 
subsequent items down one to make 
room. Deleting items causes the same 
problem. 

The best way to keep a list that is 
entered in random order sorted as you go 
is to make it into a linked list. These lists 
have keys or pointers associated with 
each item that lead you from the smallest 
(or largest) item to the next in line, from 
that to the next, and so on to the end. 
Both sorts and linked lists are nicely 
described in William Barden's book 
Programming Techniques for Level II 
BASIC, published by Radio Shack. 

Barden's program for linked lists 
works well, but is not very versatile, it 
seemed to me, so I have constructed a set 
of subroutines that can be inserted 
directly or with little modification into 
almost any program needing them. 
These subroutines are presented at two 
levels. The simplest set of routines sets 
up that data array and links without 
trying to recover the space in the file 
abandoned when items are deleted. This 
approach is satisfactory when the list is 
quite stable, especially when items are 
not frequently removed from it. I use this 



kind of a list to index my programs, for 
example, since I rarely throw away one I 
have put into the index (do you?). 

A second pair of subroutines is more 
complex, but it does allow the space 
formerly used by deleted items to be 
recycled to new items as the content of 
the list changes. This is important for 
fairly volatile lists, such as might occur 
in your accounts payable or accounts 
receivable handling. Here, items are 
added when received and deleted when 
paid, so that the list is always current. 
The key might be the date of the invoice 
so you can detect ages accounts, for 
example. 

Both sets are demonstrated in the 
context of driver programs which allow 
you to enter and delete items and to print 
the ordered lists. It is common to closely 
associate the links or pointers with the 
items of data, but I have found it most 
useful to separate these into different 
arrays or lists. For one thing, your links 
are always integer values and space can 
be conserved by keeping them in an 
integer array, whereas your data may 
typically be floating point numbers or 
alphanumeric string arrays. In every 
case, the index number to any item in the 
data array (e.g., D(5)) is the same as the 
index to the link array item referring to it 
(e.g., L(5)). The demo programs use 
numeric data, but few changes would be 
needed to make those data into strings. I 
call my arrays D (for data) and L (for 
links) in the simpler set, shown in listing 
1. 

Listing 1 actually has three 
subroutines. Subroutine A, lines 200 to 
280, will link the list in ascending order 
(smallest to largest) of the data items. 
Subroutine B, lines 300-380, puts the 
links in descending order. The third, 
subroutine C, lines 400-470, deletes items 
from either list. The demo driver is set to 
produce a descending list for this 
example. 

It is likely that you will only 
understand the linked list subroutines 
by following them out step by step with 
dummy data. Take the descending 
routine, for example. The link header in 
array position L(0) points to the largest 
element in the array as the entry point. 
When there is no item in the list at the 
start, the item counter I, in the driver, is 
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zero. The item is put into the array in the 
driver as well, at line 1050. Line 330 is the 
subroutine sets the initial pointers - the 
header points at item one, and item one's 
link is a negative one, indicating it is the 
smallest (last) in the list. Of course, at 
this point it is the only one in the list. 
After the first item, this line is always 
skipped. 

In the subroutines, the variable KL is 
the previous item pointer and KN is the 
next item pointer. I is used to indicate the 
current item. Line 340 decides whether 
the new item is smaller or larger than 
each successive item as it goes through 
the list, and may be run through several 
times. If D(I) is larger than the next item, 
line 350 sets the links so that the 
"previous" link pints to D(I) and D(I)'s 
link points to that which was previously 
largest. If this is not so, line 370 will 
move to the next item in order and repeat 
line 340. Unless, that is, D(I) is smaller 
than any item in the list, including the 
one marked -1, indicating the end. In this 
case, line 380 puts it at the end, and the 
former smallest item's link is set to point 
at this new item. Simple! The ascending 
routines workes essentially the same 
way. 

The v delete subroutine, C, reads 
through the list until the value you want 
deleted is found. If it is not found, you are 
told that the item is not in the list. When 
found at KI - the pointer to the item to be 
deleted - processing jumps to line 470, 
which does nothing more than set the 
"previous item" pointer, L(KL), to point 
at the item following the deleted one in 
order, just skipping over it. The deleted 
item and its link are zeroed to make the 
links easier to read, but it is not 
necessary. 

Figure 1 shows a couple of cycles of 
input and output from this program, and 
figure 2 shows the link and data arrays 
as they existed after the last output was 
produced. The lines represent, 
respectively, items to the end of the list, 
and can easily be followed. For example, 
L(0) tells us that the item at line 4 is 
largest - the 100 in the D array. The 
pointer associated with item 4 is 10, since 
D(10) is 89, the second largest. Its pointer 
leads us to item 7 (=70), etc., down to the 
smallest item in line 8, marked with link - 
1. 

The second set of subroutines is built 
into the program at listing 2. Only the 
ascending version is given, but following 
the clues in listing 1 you should be able to 
make the descending one yourself. In 
this case we want to recover our free 
space after an item is deleted from the 
list, so a second list is constructed in 
array F to follow it to its end. This means 
that array F must be initialized so that it 
starts out with a set of pointers. This is 
done in lines 150-160 of the driver. Lines 
120-130 and 1000 only remind us that if 
you have stored these arrays on diskette 
or tape for later use, you do not want to 
destroy what you have done already by 
reinitializing them. The appropriate 



reading routines are not included in the 
program. 

Lines 200-290 are very similar to the 
previously described subroutine (of 
course, it goes in the opposite order, but 
otherwise is similar). It differs mainly in 
that the index or link to the next free 
space is taken from the free space array 
header, F(0). This is reset and the F link 
at the item is zeroed while the item 
coming in as X is inserted into the D 
array here (different from the previous 
program). Also, the D(0) element is used 
to count how many slots in the array are 
currently in use, since we may fill and 
empty it several times in the course of 
using it. This can't happen in the 
previous example. So, in summary, this 
insertion routine is resetting the links in 
both the L and F link arrays; L to keep 
the items in order, and F to point to all 
the empty slots available. 

The deletion array is a little more 
difficult. The first part is no problem. As 
in the earlier example, it merely reads 
through the list until the item is found (or 
not found, if it isn't there). When it is 
found, line 470 jumps the L links around 
the item, decrements the counter in D(0), 
and zeroes the deleted item from the L 
and D arrays. The rest of the subroutine 
looks for and resets the F links so that 
the just deleted item is at the bottom of 
the free space list. 

The examples in figure 3 show a couple 
of stages in the processs, just as before. 
Figure 4 is the display of the L, D, and F 
arrays at the end of the work shown. The 
first item in the L list is L(0), pointing to 
the smallest element in D at D(5). The 
D(0) value tells us that nine slots are in 
use, and the F(0) and F(2) entries advise 
that only one slot is left vacant, at line 2 
(zeroes in the L and D arrays). 

Three notes are worth adding. In the 
last example in which the D(0) element is 
used as a counter, a problem may arise if 
D is a string array. You will need to refer 



ARRAY SIZE DESIRED? 20 



to it and change it using the string 
commands VAL and STR$. Secondly, 
note that I used the DEFINT statement 
early in each program to make all the 
links and keys integers. Have you ever 
noticed how you can identify old 
FORTRAN warhorses by the values 
they choose for integers? 

Third, it is entirely possible to make 
the data array a two or more 
dimensioned array (two is enough for 
most purposes). You then need to give the 
L array the same dimensions, of course, 
but by carefully watching your 
references you can call the proper 
subroutine or subroutines in order and 
have your list linked by more than one 
key - and even in more than one direction 
if you wish. Be sure to run through all of 
them when you delete items, however, or 
you will have a mess. 

A final warning is perhaps also 
needed. There is no reason you cannot 
use this system in indexing a disk file 
too, but there is a good reason not to do 
so. It will thrash around a great deal 
causing excess wear when you do. 
However, it would be easier to make a 
linked index to the disk records that is 
read into memory, searched as needed, 
and used to call up or add or delete the 
single record needed with one random 
access to the disk. Sequential files, of 
course, can't run this way. You can, 
though, order the items in your memory 
and read it out to the diskette in proper 
order. After that it could be accessed 
sequentially. 

All the routines here were built around 
single-line, fixed-length records. You can 
have multiple line records by building 
into your links another column telling 
how many lines or items are stored if you 
wish, and indexing to the start of the 
record as needed. That's fun too. 

In any event, I hope these routines can 
be useful to you as you develop more 
complex programs. B 



START ACTIVITY 

FOR INPUT ENTER I, X (WHERE X IS VALUE OF ITEM) 

TO DELETE ENTER D, X (SAME CONVENTION) 

TO PRINT LIST ENTER P, X (X = ANY NUMBER) 

WHAT ACTION? 1,50 

WHAT ACTION? 1,30 

WHAT ACTION? 1,70 

WHAT ACTION? 1,100 

WHAT ACTION? D,35 

ITEM NOT IN LIST 

WHAT ACTION? D,70 

WHAT ACTION? 1,50 

WHAT ACTION? P,2 



Figure 1, continued on next page. 
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ITEM 


VALUE 


4 


100 


1 


50 


5 


50 


2 


30 


DONE 




MORE ACTIVITY? Y 


WHAT ACTION? 


1,35 


WHAT ACTION? 


1,70 


WHAT ACTION? 


1,6.34 


WHAT ACTION? 


1,55 


WHAT ACTION? 


1,89 


WHAT ACTION? 


P,2 


ITEM 


VALUE 


4 


100 


10 


89 


7 


70 


9 


55 


1 


50 


5 


50 


6 


35 


2 


30 


8 


6.34 


DONE 




MORE ACTIVITY? N 


READY 




> 





ARRAY SIZE DESIRED? 
IS THIS A NEW LIST? 
FOR INPUT ENTER I, 
TO DELETE ENTER D, 
TO PRINT LIST ENTER 
WHAT ACTION? 1,50 
WHAT ACTION? 1,30 
WHAT ACTION? 1,90 
WHAT ACTION? 1,20 
WHAT ACTION? 1,40 
WHAT ACTION? 1,20 
WHAT ACTION? P,2 



10 

Y 
X (WHERE X IS VALUE OF ITEM) 
X (SAME CONVENTION) 

P, X (X = ANY NUMBER) 



Figure 1 . Sample input and output for Listing 1 
Descending order option. 



READY 

>F0R K=0 TO 10s PRINT L(K),D(K): NEXT 



4 





5 


50 


8 


30 








10 


100 


6 


50 


2 


35 


9 


70 


-1 


6.34 


1 


55 


7 


89 


READY 




> 





Figure 2. Link array L (left) and Data array (right) 
after runs in Listing 1 . Indexes from L(O) to L(1 0) to 
after runs in Listing 1 . Indexes from L(O) and D(O) 
to L(10) and D(10). Header L(O) points to the 
largest item in array (D(4)). See text. 



ITEM 


VALUE 


6 


20 


4 


20 


2 


30 


5 


40 


1 


50 


3 


90 


DONE 




MORE 


ACTIVITY? Y 


WHAT 


ACTION? D,40 


WHAT 


ACTION? 1,100 


WHAT 


ACTION? D,90 


WHAT 


ACTION? D,10 


ITEM 


NOT ON LIST 


WHAT 


ACTION? P,2 


ITEM 


VALUE 


6 


20 


4 


20 


2 


30 


1 


50 


7 


100 


DONE 




MORE 


ACTIVITY? Y 


WHAT 


ACTION? 1,10 


WHAT 


ACTION? 1,90 


WHAT 


ACTION? 1,20 


WHAT 


ACTION? 1,5 


WHAT 


ACTION? 1,100 


WHAT 


ACTION? D,30 


WHAT 


ACTION? P,2 



Figure 3, continued on page 62 
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Cassette CS-3306 (16K), $99 95 
DiskCS-3801 (32K), $99 95 

Should you hedge, buy, or sell out? Stock 
and Options Analysis puts a securities advisor 
in your computer, providing you with four 
powerful investment tools Option gives 
important indices for opening and closing 
call option transactions Opgraph presents 
a graph or table of profit for any combination 
of long or short calls, puts, and stocks This 
allows the detailed evaluation of three types 
of hedges Newprem helps predict the future 
premiums of an option at any desired time 
and future stock price Portval lets the 
computer do the paper work, providing full 
portfolio services, including value per share, 
current value, and capital gain The program 
includes the effects of commissions, margin 
interest and dividends Beyond helping to 
organize and evaluate your present portfolio, 
Stock and Options Analysis is an excellent 
aid for planning and testing future 
strategies The comprehensive 24-page 
manual with this package not only shows 
how the programs work, but is also a primer 
on the strategy of hedging listed options 
against common stocks This strategy has 
been repeatedly shown to actually be more 
conservative and more consistently profitable 
than straight buying and selling of stocks 




DiskCS-3509(32K)$24 95 

Is your address book beginning to resemble 
a heavily-edited inkblot? Do your friends 
keep moving, forcing you to cross cut and 
rewrite addresses and phone numbers? Let 
the Personal Address & Information System 



turn filing drudgery into computing pleasure 
You can store all the crucial information, 
including name, address, home and work 
phone numbers, spouses name, and 
comments or remarks At any time, the 
information can be edited or changed 

And there's more Names can be sorted 
in alphabetical order Entire entries can be 
printed, as well as mailing labels Names 
can be searched for by first letter In a 32K 
system, you can search any record for up to 
two key phrases, turning Personal Address 
& Information System into a versatile filing 
system with unlimited uses 



Available 7/81 




Business Address & 
Information System 

Disk CS-3510 (48K) $24 95 Available 7/81 
Do you need quick access to business 
contacts and customers? Put more organiza- 
tion in your organization with the Business 
Address & Information System A complete 
file; containing company name, address, 
phone number, and comments can be quickly 
entered and stored Information can be 



changed or edited whenever necessary 
The program allows entire entries to be 
printed, and can also generate mailing 
labels 

When you need information fast, you can 
search for specific names or find all entries 
that contain one or two key phrases. Any 
key phrases can be used , Business Address 
& Information System will help you make 
the most of your time, putting the routine 
work in the computer where it belongs. 



Cassette CS-3307 (16K), $49 95 
DiskCS-3802(32K)$99 95 

F-Chart Solar Energy Analysis eliminates 
many of the tedious calculations required 
when designing solar-heating systems 
Beyond providing a thermal analysis, the 
program allows designers to quickly deter- 
mine the effects of changing any specifica- 
tions, allowing fast, accurate, and inexpensive 
experimentation 

Systems using air, liquid, or domestic hot 
water in any climate can be analyzed in 
detail The program expands the traditional 
F-Chart procedure by taking groundwater 
temperature into account and allowing for 



ml y sis 



Available 7/81 



mixing valves in domestic hot water systems 
F-Chart Solar Energy Analysis quickly pays 
for itself by freeing you from time-consuming 
calculations 

The disk version of the program includes 
a data base of all necessary climatic data 
for any location in the United States. These 
data are in the printed booklet included 
with the cassette version but must be entered 
manually for your geographic location 
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Cassette CS-3302 ( 1 6K) $ 1 4 95 



This program turns a 16K, TRS-80 and 
lineprinter into a line oriented text-processing 
system 




CS-3504 Disk (32K) $24 95 
(Disk includes Checking 
Account, CS- 3304) 



ISOEEUfC 
EDIT 

IHSOcT LINE 
RESLtt KEYING 
LIST OH SOIOi 
PRINT rttfij COPY 
QUIT PROGRflM 
S^GHTtft 
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Developed exclusively for the TRS-80 
this program lets you use the computer to 
enter general text or business letters, edit 
and modify your work, save text on cassette 
tapes, and print out a perfect report, docu- 
ment, or letter every time 



COMB*©? 



Editing commands are similar to those 
used in Level II BASIC, so there are no 
complicated newcpmmands to learn Lines 
may be either inserted or deleted. A special 
format is available to speed entry of business 
letters Final printout can be done in 
numbered pages and you may print multiple 
copies 



Order Today 



To order any of these software packages 
send payment plus $2 00 postage and 
handling per order to Creative Computing 
Morris Plains NJ 07950 Visa MasterCard 
and American Express orders may be called 
in toll-free 



TRS-80 is the regis 



Order today at no risk If you are not 
completely satisfied, your money will be 
promptly and courteously refunded 

Creative Computing Software 
Morris Plains NJ 07950 
Toll-free 800-631-8112 

In NJ 201-540-0445 
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ITEM 


VALUE 
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10 


10 


20 
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20 
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20 


1 


50 


9 


90 


3 


100 


7 


100 


DONE 




MORE ACTIVITY? 


N 


READY 




> 





Figure 3. Sample input and output for Listing 2. 
Ascending order with space recovery. 



IF I > 1 THEN 240 



>F0R K=0 TO 10s PRINTLCK),DCK)„FCK)sNEXT 

2 

-1 











Figure 4. Left is Link array L, center is Data array D, 
right is free space links F. First items are: L(0)=5, 
Location of smallest element; D(0)=9, Number of 
slots in use; F(0)=2, next free space slot available. 
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Listing 1 
(Color computer users delete line 50) 

1 REM LINKING SUBROUTINES DEMO 

2 REM R STRAW, 1981 

3 REM TRS-80 MOD I LEVEL II CODE 
50 DEFINT I - N 

100 CLS : INPUT "ARRAY SIZE DESIRED";N 

110 DIM DCN), I(N) 

120 GOTO 1000 

130 ' 

200 REM LINK ASCENDING : DATA IN ARRAY 

D, LINKS IN L 
210 REM LINK HEADER=L(0); INDEX TO 

INCOMING ITEM = I 



IF D(I) > D(KN) THEN 



L(I) = KN : RETURN 



220 KL = 

230 L(0) = 1 : L(1) = - 1 : RETURN 

'FIRST ITEM 
240 KN = LCKL) 

260 
250 LCKL) = I : 

■SMALLER ITEM 
260 IF L(KN) < THEN 280 
270 KL = KN s GOTO 240 'LARGER ITEM 
280 L(KN) = I : L(I) = - 1 : RETURN 

'LARGEST ITEM 
290 ' 
300 REM LINK DESCENDING: DATA IN D, 

LINKS IN L 
310 REM LINK HEADER = LC0), INDEX TO 

INCOMING ITEM = I 
320 KL = : IF I > 1 THEN 340 
330 L(0) = 1 : L(1) = - 1 : RETURN 

'FIRST ITEM 
340 KN = LCKL) : IF DCD <= DCKN) THEN 

360 
350 LCI) = KN : LCKL) = I : RETURN 

'LARGER ITEM 
360 IF LCKN) < THEN 380 
370 KL = KN s GOTO 340 'SMALLER ITEM 
380 LCKN) = I : LCI) = - 1 : RETURN 

'SMALLEST ITEM 
390 8 
400 REM LOCATE AND DELETE ITEM 

CNO SPACE RECOVERY) 
410 REM LINKS IN L, DATA IN D, 

ITEM IN X 
420. KL = 'START SEARCH 
430 KI = LCKL) : KN = LCKI) : IF X = DC 

KI) THEN 470 'AT KI 
440 IF KN < THEN 460 'END OF LIST 
450 KL = KI : GOTO 430 

'CONTINUE SEARCH 
460 PRINT "ITEM NOT IN LIST" : RETURN 
470 LCKL) = KN : LCKI) = : DCKI) = 

: RETURN 'SKIP OVER KI 
990 8 
1000 PRINT : PRINT "START ACTIVITY" : 

1 = 
1010 PRINT "FOR INPUT ENTER I, X CWHERE 

X IS VALUE OF ITEM)" 
1020 PRINT "TO DELETE ENTER D, X CSAME 

CONVENTION)" > 
1025 PRINT "TO PRINT LIST ENTER P, X CX 

= ANY NUMBER) 
1030 INPUT "WHAT ACTION"; A$, X 
1035 IF A$ = "P" THEN 1500 
1040 IF A$ = "D" THEN 1100 
1045 1=1+1: IF I > N THEN PRINT "N 

SPACE LEFT" : GOTO 1030 
1050 DCD = X : GOSUB 300 
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1060 GOTO 1030 

1100 IF I < 1 THEN PRINT "LIST EMPTY" : 

GOTO 1030 
1110 GOSUB 400 
1120 GOTO 1030 
1500 CLS 

2000 REM READ LINKED LIST 
2010 KL = : PRINT "ITEM", "VALUE" 
2020 KI = L(KL) 
2030 PRINT KI, D(KI) 
2040 ' AND ANY OTHER PROCESSING DESIRED 

2100 IF L(KI) > THEN KL = KI : GOTO 2 

020 
2200 PRINT : PRINT "DONE 
2210 INPUT "MORE ACTIVITY"; Y$ 
2220 IF Y$ = "Y" THEN 1030 
2230 END 



Listing 2 
(Color computer users delete line 50) 

1 REM LINKING SUBROUTINES DEMO 

2 REM R STRAW, 1981 

3 REM TRS-80 MOD I LEVEL II CODE 

4 REM (SPACE RECOVERY VERSION) 
50 DEFINT F - N 

100 CLS : INPUT "ARRAY SIZE DESIRED";N 

110 DIM D(N), I(N), FCN) 

120 INPUT "IS THIS A NEW LIST"; Y$ 

130 IF Y$ <> "Y" THEN 1000 

140 REM INITIALIZE F, L ARRAYS AND D(0) 

COUNTER 
150 FOR I = TO N - 1 : F(I) = I + 1 : 

LCI) = : NEXT I 
160 FCN) = - 1 s LCN) = : DCO) = 
180 GOTO 1000 
190 ' 
200 REM LINK ASCENDING FROM FREE SPACE 

ARRAY ; ITEM IN X 
210 KI = FCO) ; IF KI < THEN 290 «N0 

SPACE LEFT 
220 FCO) = FCKI) : FCKI) = : DCKI) = 

X : KL = 'TAKE SPACE, INSERT 
225 DCO) = DCO) + 1 : IF DCO) > 1 THEN 

240 "ITEM COUNTER 
230 LCO) = KI : LCKI) = - 1 : RETURN 

'FIRST ITEM 
240 KN = LCKL) : IF DCKI) > DCKN) THEN 

260 
250 LCKL) = KI : LCKI) = KN : RETURN 

'SMALLER ITEM 
260 IF LCKN) < THEN 280 
270 KL = KN : GOTO 240 'LARGER ITEM 
280 LCKN) = KI : LCKI) = - 1 : RETURN- 

'LARGEST ITEM 



290 PRINT "NO MORE SPACE AVAILABLE" : 

RETURN 
300 f 
400 REM DELETE FROM LIST, RECOVER SPACE 

: ITEM IS IN X 
410 IF DCO) < 1 THEN PRINT "LIST IS EMP 

TY" : RETURN 
420 KL = 
430 KI = LCKL) : KN = LCKI) : IF X = DC 

KI) THEN 470 'FOUND AT KI 
440 IF KN < THEN 460 
450 KL = KI % GOTO 430 'CONTINUE 
460 PRINT "ITEM NOT ON LIST" : RETURN 

'NOT FOUND 
465 REM ITEM FOUND, LOCATE AND RESET L 

AND F LINKS 
470 LCKL) = KN : LCKI) = : DCO) = DCO 

) - 1 : DCKI) = 
480 KF = FCKI) : KR = : FOR KX = TO 

N 
490 IF FCKX) = - 1 THEN KR = KX 
500 IF FCKX) = KI THEN FCKX) = KF 'LINK 

NOW FREE SP S 
510 NEXT KX 
520 FCKI) = - 1 : FCKR) = KI : RETURN 

B KI TO END OF FREE SP a 
990 ' 
1000 REM READ ARRAYS AND LINKS IF NOT 

NEW COMITTED) 
1010 PRINT "FOR INPUT ENTER I, X CWHERE 

X IS VALUE OF ITEM)" 
1020 PRINT "TO DELETE ENTER D, X CSAME 

CONVENTION)" 
1025 PRINT "TO PRINT LIST ENTER P, X CX 

= ANY NUMBER)" 
1030 INPUT "WHAT ACTION"; AS, X 
1035 IF A$ = "P" THEN 1500 
1040 IF A$ = "D" THEN 1100 
1050 GOSUB 200 
1060 GOTO 1030 
1100 REM 
1110 GOSUB 400 
1120 GOTO 1030 
1500 IF DCO) < 1 THEN PRINT "LIST IS EM 

PTY" : GOTO 1030 
2000 REM READ LINKED LIST 
2010 KL = : PRINT "ITEM", "VALUE" 
2020 KI = LCKL) 
2030 PRINT KI, DCKI) 

2040 'AND ANY OTHER PROCESSING DESIRED 
2100 IF LCKI) > THEN KL = KI : GOTO 2 

020 
2200 PRINT : PRINT "DONE" 
2210 INPUT "MORE ACTIVITY"; Y$ 
2220 IF Y$ = "Y" THEN 1030 
2500 END 
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ixperlencc with the Epson MX-80 printei 

Larry Krengel, Elmhurst, II 



In the fall of 1978 1 bought my TRS-80. 
I spent what seemed to my wife to be 
thousands of hours talking with "Tom" 
(the name we have affectionately given 
to our computer). I enjoyed myself 
completely. 

In some of my more defensive 
moments, I found myself trying to 
justify Tom's place in our family. I would 
find jobs which he could do better than 
any other member of the family — like 
counting up to a thousand fast. He was 
even asked to do more serious jobs like 
keep a family budget or make up practice 
math problems. 

Tom was always happy to try to prove 
himself. But it was almost as if he had to 
do it with one hand tied behind his 
circuit board ... he had no printer! 

For the following two years we (Tom 
and I) often considered the possibility of 
adding a printer. That, however, would 
require an expansion interface, not to 
mention the printer itself. We could 
easily have invested (squandered?) more 
than the original price of Tom! 

We watched, shopped, read and sent 
for information from all the 
manufacturers. The prices started to 
come down, but the type quality in the 
lower priced printers was enough to 
cause Tom to send out an error message. 
I got tired of looking at dots which were 
supposed to look like letters. 

Then one exciting morning while I was 
being my usual computer-store bum, I 
happened to meet "The Man from 
Epson". He did not wear a cape, nor did 
he swing from spiderwebs, but he did 
carry a printer with him. 

That was when I met the MX-80: four 
widths of print, three densities of type 
and a beautiful white case with little 
green lights. What a mate she would 
make for Tom! 

Within a week Tom was sitting on an 
Expansion Interface and had an MX-80 
at his side. 

The real story 

Now, taking my tongue out of my 
cheek, I would like to relate the real story 
of getting to know the MX-80. It is one of 
frustration which I experienced 
needlessly. #. 



Before I get to the real story, let me 
preface this tale with the statement that 
it was, without a doubt, worth all the 
work. I wish, however, that someone had 
written this article for me to read before I 
bought my MX-80. 

The day I bought it, I read the manual 
on the way home when we stopped to 
have a hamburger. Therefore, I was 
ready to start printing as soon as I 
walked in the door. I had also picked up a 
cable which would, supposedly, connect 
the printer to either the keyboard or the 
interface. It didn't fit the keyboard, so I 
waited for the Expansion Interface to 
arrive the next day. 

Now I was ready to print, except for the 
DIP switches which the manual talked 
about. The manual shows a drawing of a 
circuit board but nowhere does it say 
where to find it. After some 
consideration I removed the top case and 
almost ripped off the wires which tie the 
top panel switches to the base. 

With the switch wires removed, the top 
came easily free. I was inside and right 
there in front of my eyes was the circuit 
board. Rotating the diagram in the 
manual, I quickly located the switches. 
They were numbered, almost 
imperceptibly, and little plastic covers 
were there to hold the switches in 
whatever position the operator placed 
them. With the switches set and the top 
back in place, Tom turned out his first 
hard copy. It was beautiful. 

The next step was to learn how to make 
the new gadget do all those neat little 
things which sold me on it. As you may 
have guessed, the manual is far from 
complete. After almost a week of 
frustration and many phone calls, I was 
finally directed to Dr. David A. Lien's 
"MX-80 User's Manual". It is a 100-page 
guided journey through the MX-80 and 
worth every penny. Armed with it, I 
accomplished in 24 hours what I had 
failed to accomplish in the entire 
preceeding week. 

In retrospect, I always have great 
wisdom. Perhaps those of you who are in 
the position I was in only a few short 
months ago can benefit from these 
thoughts. 
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Figure 1 

The dip switch settings presently 

used by the author. 



Any change in hardware configura- 
tion (adding a printer, a disk drive, or a 
MODEM, to name a few) of your 
computer is bound to bring some difficult 
times. You will not be disillusioned by 
adding an MX-80. It may be trying, but it 
is worth it. Before you do anything with 
the MX-80, obtain a copy of Dr. Lien's 
book. His advice is sound. 

The DIP switches are a source of 
mystery to me. I have settled on a set of 
positions which work well for me. They 
may for you too. Incidently, they are not 
the same as in Epson's manual or Dr. 
Lien's book. (See Figure 1) 

The reason Epson included a "TRS-80 
mode" (which Dr. Lien suggests you do 
not use) is the code differences for 
graphics in the various computers. 
However, in order to use the TRS-80 
mode the computerist must sacrifice a 
number of the finer options of the MX-80. 
Fortunately, the user manual provides 
an alternate plan. 

One little quirk which confused me 
slightly came when the MX-8,0 would 
apparently not cancel different 
formatting codes. This had to do with an 
internal buffer memory. The 
characteristic is altered by the DIP 
switch settings. When in doubt, turn the 
printer completely off, then back on. It 
will revert to standard print. 

The MX-80 is a great printer, although 
the lack of documentation was 
disappointing. If you buy an MX-80, also 
buy Dr. Lien's book. 

Even though a TRS-80 can't smile, I 
can just feel the happiness radiating 
from Tom every time I go into my den. 

Indeed, happiness is an MX-80 printer 
mated to a TRS-80. ■ 
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AVAILABLE- ON DISK 

, TRS-80 MODEL 1 32K 

TR^aOMODEL3 

■Apple 2 Apple, 
"; ATARI 40K 




venture 



K/^INltRNAI lONAL 

A DIVISION OF SCOTT ADAMS, IMC 

BOX 3435, LONG WOOD, FL 32750 . 

f (305) 662-691 7 £Zjr 

ORDER FROM YOUR FAVORITE DEALER 

or CALL TOLL FREE (600) 327 7172 

SHIPPING & HANDLING ARE EXTRA, PRICES SUBJEi 



ART COPYRIGHT 
1981 RAYMOND BAYLESS 



MANGE WITHOUT NOTICE 



Radio Shack's TRS-80 Color C 
Gives You the Graphics Advan 



Radio Shacks TRS-80 is the pow- 
erful personal computer that 
makes sophisticated color graph- 
ics affordable! With our all- new 
accessories, you can create a com- 
plete graphics system that's ideal 
for use in business, education or 
engineering. 




NEW! TRS-80 Multi-Pen 
Plotter. This intelligent plotter 
produces hard copy printouts in 
six colors using simple ASCII com- 
mands. At only $1995, its just 
what you need to produce attrac- 
tive, professional looking graphic 
displays. Add our felt-tip pens 
and you can plot on transparencies 
for chart overlays and overhead 
projection. Features include mul- 
tiple line styles, arcs, upper- and 
lower-case characters and symbols 
to enhance your graphics, plus our 
exclusive high-level graphic appli- 
cation package. This graphics 



I I want graphic proof! j 
I Send me a free TRS-80 catalog. I 

■ Radio Shack, Dept 82-A-358 

1300 One Tandy Center * 

1 Fort Worth, Texas 76102 I 
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package lets anyone create line 
graphs, pie charts and bar charts 
for business or educational use — 
no experience is necessary! 

NEW! Dual-Purpose Printer. 

The new $399 TRS-80 Line 

Printer VII is a perfect 
low-cost choice for print- 
ing text — and its bit 
image mode lets you 
print superb dot address- 
able graphics in black 
and white! For word pro- 
cessing, data processing, 
and graphics, check out 
our new $799 Line 
Printer VIII. Our $4.95 
Cassette Screen Print Pro- 
gram makes it easy to 
transfer the two-color 
high-resolution display 
memory contents of your 
Color Computer to either 
of these printers. 

Price Breakthrough! At just 
$449, the new TRS-80 Digitizer 
is an economical and extremely 
convenient way to input your 
graphics. Measure areas, lengths, 
distances and more! And because 
it's not an ordinary graphics "pad," 



you can use it on maps, charts or 
:>lans of any size. A swivel head 
_ets you operate vertically, too. In 
fact, you can even input data 
directly from the surface of your 
computer screen or light table. 

Great Graphics Made Easy! 

It all starts with our S599 TRS-80 
Color Computer. The 16K mem- 
ory and extended Color BASIC 
lets you draw circles, rectangles, 
and boxes with simple, one-line 
commands. And you can add up 
to four disk drives, with the first 
only S599! 




Get the great graphics advantage 
at over 6,000 Radio Shack stores 
and dealers, and 185 Radio Shack 
Computer Centers nationwide. 
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INTERNATIONAL 

A DIVISION OF SCOTT ADAMS, INC. 

BOX 3435 • LONGWOOD, FL 32750 • (305) 862-6917 

ORDER FROM YOUR FAVORITE DEALER 
or GAL I TOLL FREE (800) 327 7172 



TRS-80* 

Moder 1 & 3 

16K and up — Tape 
010-0102 $24.95 

32K and up — Disk 
0120102 $29.95 




s 



SHIPPING ft HANDLING CHAHULS AIM I XI MA 
PHICES 5UHJIC1 TOCHANCil WIIHOIJI NO I If: I 



PHOTO COPYMIGI 1 1 DON UIXON 



I Ml; HO In ro<jlnttui*(l Tmilfimmk nl Hut lwnly Corp. 



GOLDPLUG 80 Card Edge 
Connectors 

E.A.P. Company 

PO Box 14 

Keller, Texas 76248 

Price $18.95 

For Model I TRS-80 



The TRS-80 Model I micro- 
computer is probably the world's 
most popular. It is extremely 
reliable considering its complexity 
and its cost effectiveness. However, 
like Achilles, it has its weak points. 
The number one annoyance would 
have to be keybounce. However, 
there are several solutions to this 
problem, including frequent 
cleaning of the key contacts, 
loading special software drivers, 
and using Disk BASIC. There is one 
problem that is not so easy to solve; 
namely, frequent disk re-boots and 
other assorted mayhem caused by 
oxidation of the card edge 
connectors between the keyboard 
and the expansion interface. 

These connectors are simply tin 
and lead surfaces, subject to 
oxidation and corrosion. When 
these surfaces become oxidized to 
the point that there is a loss of signal 
quality, disks will re-boot, 
keyboards will lock up, and glitches 
will cause all sorts of problems. 

What are the alternatives? Well, 
you could sell your Model I and get a 
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Model III. (I wonder how your wife 
would like that idea?) You could pull 
off the cable and clean the contacts 
every month or so, but that would 
eventually wear out the contacts. 
You could invest in an electro- 
plating outfit and gold plate the 
contacts as an acquaintance of mine 
has done on 12 of his machines. Ur 
you could send $18.95 to the E.A.P. 
Company and solve your re-booting 



problems forever. In return, you will 
receive two gold plated connectors 
that solder on to the edge connectors 
of the computer. 

How about installation? It is a 
snap if you have some experience 
with soldering. No, I definitely 
would not recommend installation 
by a novice. Have someone with 
soldering experience install them. A 
television repair shop would 
probably do it for a small charge. 
Before you begin, make sure that 
you have the following: a low 
wattage soldering iron (35 watts 
maximum) with a l/8th inch tip, 
high quality resin-core solder, a 
medium Phillips screwdriver, and a 
pink pearl or equivalent eraser to 
clean the contacts. The instructions 
guide you step by step on 
disassembly of both the keyboard 
and expansion interface. Both 
contacts are thoroughly cleaned 
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with the eraser, and then the 
Goldplugs are soldered in place. 

Do the Goldplug 80's work? I 
installed them about a month ago, 
and have not had a single glitch, 
which is unusual for my computer. 
The friend who gold-plated his 
machines reports 100% reliability 
with his method also. In fact, he 
reports that there was a one-volt 
increase in signal amplitude on the 
floppy disk signal lines after gold 
plating. Gold plating the contacts is 
apparently the way to go! 

Since the edge connectors are 
soldered surfaces, very little solder 
has to be applied to the connectors. 
Before you reassemble the 
computer, check to make sure that 
there are no shorts between pins of 
the connectors. 

Are the Goldplugs for everyone? It 
depends. Before deciding to install 
the Goldplugs, consider this: if you 
make a mistake and damage your 
computer, it is probably going to 



cost a lot to have it repaired. Also 
consider, if you install these 
connectors, you have voided the 
limited warranty. It would probably 
be safe to say that 95% of all Model I 
keyboards are out of warranty. 
However, there is another problem 
with out of warranty repairs. Radio 




Shack does not like unauthorized 
modifications. If your unmodified 
machine were to develop a severe 
problem that a simple diagnostic 
would not detect, the normal 
practice is to exchange the entire 
circuit board for a nominal fee. In 
the case of a modified board, Radio 
Shack will exchange the board, but 
at the full replacement cost. 
Fortunately, the Goldplugs are 
removable by simply unsoldering 
them. For me, they were the answer 
to a problem that had been 
plaguing me for some time. The 
company also sells Goldplugs for 
the disk port, printer port, screen 
printer port and RS-232 port for 
$9.95 each. A complete set of all six 
plugs is $54.95 m 

Jim Klaproth 



I iff* III 

mm m. i/i 



° Run on 16K or Larger DOS systems 

• Documentation Included. 

• Must be converted for Mod. Ill 

• Various program Methods for study 

• Check inputs; if OK, print, else easy to 
correct before printing 

• Our Third Year of Tax Service 

• Try ONE disk. If OK, 40 other Tax 
Programs are available. 

FIRST DISK contains Form 1040, and 
Schedules A, B, C, D, SE and TC. 



CAT. NO. TR #1 



Price $24.75 PPD 



931 S. Bemiston 



St. Louis, Mo. 63105 



Circle # 37 
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p— * 




jowl 




nsion 



A zany adventure for all TRS-80 models 

Jon J. Waples, East Greenwich, RI 



Did you ever have the desire to escape reality for 
a while and assume the identity of someone else in 
another place on a fictitious endeavor? Well, this 
program can do it all for you. You are a nasty 
repossessor who commands his puppet (or 
flunky?) to do his dirty work. Since your puppet is 
relatively unintelligent, and has a vocabulary of 
only thirty-eight verbs and ninety-two nouns, you 
can communicate to him in only one and two word 
sentences. Some words he knows are: take, drop, 
look, help, score, inventory, and quit. You can help 
your puppet carry out his mission by using 

common sense. 



B(n)-G(n) 




Now for the nitty-gritty: this adventure makes 
use of hundreds of variables, most of them arrays. 
The following is an alphabetized list of them with 
complete descriptions: 



A 

Alp 

A${n) 



A(n) 

B 

B$ 




location of puppet 

first three characters o 

three character abbreviations of all items 

in adventure (nouns) ^^ 

locations of all items in adventure 
nnmhprnf fofl'flJP'TP'** is carrying 
verb (separated f \)$) 



th^ee^crTaracter abbreviations of all verb 
liven L 



■ ■■•■ ■ 



c$ 




H(n) 







Here's a 
wo 
Mansion": 



50-240 
250-460 



transition arrays for all locations in 

adventure 
temporary variable used in clearing top of 

screen 
line that separates top of screen from 

bottom 
description of all locations in adventure 
outside = -1, inside = 
entire command 

description of all items in adventure 
total number of treasures stored 
noun (separated from D$) 
total percentage of treasures stored 
obvious exits in present location 
temporary variable used in throw routine 
play again = *'Y", end - "N" 
temporary variable used in noun 

recognition subroutine 
status of all items in adventure: invisible & 

immovable — 0, immovable = 1, visible & 

movable = 2 
variable used in all FOR . . . NEXT loops 

blow by blow description of the inner 
of "The Adventure of Hog Jowl 




Data statements for the 48 locations 

Data statements for the 83 items 









-, : ■ 
■,■■-■. 
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EXTRAORDINARY 

INTRODUCTORY OFFER 



FOR NEW SUBSCRIBERS 








J ' Computerist's Directory 

j PO BOX 405 

§ FORESTVILLE, CA 95436 

i (707)887-1857 

1 



>' Toe. **> V'V^-O 



&tt&&&*. 



vW*- 



3^ 






Circle # 38 
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460-480 


Data statement for 36 verbs 


490 


Clear all variables, define them as integer 


500 


Dimension arrays 


510-530 


Read data into arrays 


540 


Set up remaining variables 


550 


Print "Welcome to ... " message 


560-640 


Main loop 


650-950 


Go, walk, run, n, s, e, w, u, d, climb and enter 




routine 


960-1030 


Take, get 


1040-1100 


Take inventory, inventory, I routine 


1110-1190 


Throw routine 


1200-1220 


Drop routine 


1230-1310 


Shoot routine 


1320-1340 


Turn routine 


1350 


Jump routine 


1360-1400 


Move routine 


1410-1480 


Open routine 


1490 


Score routine 


1500-1530 


Push routine 


1540-1560 


Pick routine 


1570-1590 


Break routine 


1600-1620 


Insert routine 


1630 


Unlock routine 


1640-1650 


Unbolt routine 


1660-1670 


Drink routine 


1680-1720 


Light routine 


1730-1740 


Pull routine 


1750-1860 


Look routine 


1870-1920 


Read routine 


1930-1990 


Help routine 


2000-2190 


Erase everything above line, print location, 




visible items, and obvious exits 




subroutine 


2200-2210 


Noun recognition subroutine 


2220 


Print "I can't do that . . . yet!" 


2230 


Print "I don't see it here." 


2240 


Print "I must be stupid, but I don't 




understand what you mean." 


2250-2270 


Print score, check for win 


2280-2330 


Death routine 



Happy adventuring! Whether you be a novice or 
a "grand master". Remember, beware of the dog. 



Changes required for Model II operation. 



45 CLS : PRINT CHR$(2); 

540 A = 38 : C$ = "<" + STRING$(78, 45 

) + ">" 

550 PRINT3 722, "WELCOME TO THE ADVENT 
URE OF HOG JOWL MANSION: VERSION 1.12" 

: PRINT3 824, "BY JON J. WAPLES" 
570 G0SUB 2000 : D$ = "" : E$ = "" : A 
$ = "" : PRINT3 1840, CHR$(1); : INPUT 

" > TELL ME WHAT TO DO"; D$ : 

PRINT CHR$(2); 

1160 G = I : PRINT3 1840, CHR$(1); : I 
NPUT " > TELL ME WHAT T0 D0 ... 

E$ 



'<" + STRIiMG$( 



2000 PRINT3 0, CHR$(2); : FOR I = 1 TO 
8 : PRINT STRING$(80, 32); : NEXT I 

2010 PRINT a 0, "I AM "; : IF LEFT$(C$ 

(A), 1) = "*" THEN PRINT RIGHT$(C$(A), 
LEN(C$(A)) - 1); : D = - 1 ELSE PRINT 
C$(A); : D = 

2030 PRINT : PRINT : PRINT "VISIBLE IT 

EMS: " 

2320 G0SUB 2000 : PRINT3 1840, CHR$(1) 

; : INPUT "DO YOU WANT TO PLAY THIS AD 

VENTURE AGAIN"; G$ 



Changes required for Color computer operation. 



45 CLS 

490 CLEAR 200 
540 A = 38 : C$ = 
30, 45) + ">" 

550 CLS : PRINT3 226, "WELCOME T 
THE ADVENTURE OF" : PRINT " HO 
G JOWL MANSION: VERSION 1.12" : 
PRINT3 328, "BY JON J. WAPLES" 
570 G0SUB 2000 : D$ = "" : E$ = 
"" : A$ = "" : PRINT3 480,; : IN 
PUT ">WHAT NOW"; D$ 
1130 PRINT "IN ONE WORD TELL ME 
WHAT AT " 

1160 G = I : PRINT3 480,; : INPU 
T ">WHAT NOW"; E$ 
2000 PRINT 30,;: FOR I = 
: PRINT STRINGS (32, 32); 
I 

2010 PRINT 30, "I AM "; : IF LEF 
T$(C$(A>, 1) = "*" THEN PRINT RI 
GHT$(CS(A), LEN(C$(A)) - 1); : D 
= - 1 ELSE PRINT C$(A); : D = 
2030 PRINT : PRINT "VISIBLE ITEM 

C . II. 

w » f 

2060 IF 31 - POS(O) < LEN(D$(D) 

THEN PRINT 
2320 G0SUB 2000 : PRINT3 480,; : 

INPUT "DO YOU WANT TO PLAY THIS 

ADVENTURE AGAIN"; G$ 



1 TO 6 
: NEXT 



Main listing, for Models I and III 

This program has been renumbered and spaced foi 
clarity. Model l/lll 16K owners must compress the 
statements heavily. Color computer owners must have 
32K, and the program may require some reformatting of 
print statements to prevent breaking up words. 

10 REM * THE ADVENTURE OF * 
20 REM * HOG JOWL MANSION * 
30 REM * JON J B WAPLES * 
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Yes, that's right - for as little as 
$298.00 you can add 32K of dynamic 
RAM, and a disk interface, to your 
TRS-80 Color Computer! If you just 
want the extra memory it's only 
$199.00, and you can add the disk 
interface later for $99.00. 

Just plug the Color Computer In- 
terface (CCI), from Exatron, into 
your expansion socket and "Hey 
Presto!" - an extra 32K of memory. No 
modifications are needed to your 
computer, so you don't void your Ra- 
dio Shack warranty, and Exatron give 
both a 30 day money-back guarantee 
and full 1 year repair warranty on 
their interface. 

The CCI also contains a 2K 
machine-language monitor, with 
which you can examine (and change) 
memory, set break-points, set memo- 
ry to a constant and block-move 
memory. 

So what about the CCI Disk Card? 
Well as we said it's only an extra 
$99.00, but you'll probably want 
Exatron's CCDOS which is only 
$29.95 - unless you want to write your 
own operating system. The CCI Disk 



Card uses normal TRS-80 Model I 
type disk drives, and CCDOS will 
even load Model I TRSDOS disks into 
your color computer - so you can 
adapt existing TRS-80 BASIC pro- 
grams. 

As a further plus, with the optional 
ROM Backup adaptor, you can dump 
game cartridges to cassette or disk. 
Once the ROM cartridge is on cas- 
sette, or disk, you can reload, examine 
and modify the software. The ROM 
Backup adaptor is only $19.95. 

For more information, or to place an 
order, phone Exatron on their Hot 
Line 800-538 8559 (inside California 
408-737 7111), or clip the coupon. 




excellence in electronics 





DEALER ENQUIRIES INVITED 



Exatron, 

181 Commercial Street, 

Sunnyvale, CA 94086 



□ Please send a 32K Color Computer 
Interface for $199.00 

□ Please send a CCI Disk Card for $99.00 

□ Please include CCDOS and manual 
for $29.95 

□ Also include a ROM Backup adaptor 
for $19.95 

Please add $5.00 for shipping to all orders, 
and 6 percent sales tax in California. 

Name 

Address 

City : 

State Zip 

Charge my: 

□ MasterCard Interbank Code 

D Visa Expiration Date 

Card 

D Check enclosed for 

□ Ship COD ($2.00 extra) 



Signature 



'32K BAM plus Disk Interface 



TRS-80 is a trademark of Tandy 



Fun-n-games, 



40 REM * JULY 14, 1981 * 
50 DATA "IN A DUMBWAITER.", 0, 0, 2, 0, 
21, 0, "IN A LONG HALLWAY.", 0, 6, 3 

, 0, 0, 0, "IN A WORKSHOP.", 0, 0, 0, 
2, 0, 
60 DATA "AT THE BOTTOM OF A SECRET PASS 

AGE.", 0, 0, 0, 0, 0, 0, "IN A LABYRI 

NTH OF TUNNELS.", 0, 9, 0, 0, 0, 
70 DATA "IN A TORTURE CHAMBER.", 2, 0, 

7, 0, 0, 0, "IN A LABYRINTH OF TUNNEL 

S.", 0, 11, 8, 6, 0, 0, "IN A LABYRIN 

TH OF TUNNELS.", 0, 12, 0, 7, 0, 
80 DATA "IN A LABYRINTH OF TUNNELS.", 5 

, 0, 10, 0, 0, 0, "IN A LABYRINTH OF 

TUNNELS.", 0, 0, 11, 9, 0, 0, "IN A L 

ABYRINTH OF TUNNELS." 
90 DATA 7, 0, 0, 10, 0, 0, "IN A LABYRI 

NTH OF TUNNELS.", 8, 16, 0, 0, 0, 0, 

"AT THE LIGHT AT THE END OF THE TUNNE 

L.", 0, 0, 14, 0, 0, 
100 DATA "IN A LABYRINTH OF TUNNELS. I 
SEE A LIGHT TO THE WEST. ", 0, 0, 

15, 13, 0, 0, "IN A LABYRINTH OF TUNN 

ELS.", 0, 0, 16, 14, 0, 
110 DATA "IN A LABYRINTH OF TUNNELS.", 

12, 20, 0, 15, 0, 0, "IN A LABYRINTH 

OF TUNNELS.", 0, 0, 18, 0, 0, 0, "IN 

A LABYRINTH OF TUNNELS." 
120 DATA 0, 0, 19, 17, 0, 0, "IN A LABY 

RINTH OF TUNNELS.", 0, 0, 20, 18, 0, 

0, "IN A LABYRINTH OF TUNNELS.", 16, 

0, 0, 19, 0, 
130 DATA "IN A DUMBWAITER.", 0, 25, 0, 

0, 43, 1, "IN THE TRANSPORTER ROOM OF 
THE STARSHIP ENTERPRISE. HEY! 
WHERE'S MR. SPOCK?" 
140 DATA 0, 26, 0, 0, 0, 0, "IN LORD HO 

G JOWL'S DEN.", 0, 27, 0, 0, 0, 0, "I 

N A SECRET PASSAGE.", 0, 0, 0, 23, 0, 

150 DATA "IN A KITCHEN.", 0, 29, 26, 0, 
0, 0, "AT THE WEST END OF A HALLWAY. 

", 22, 30, 27, 25, 0, 0, "AT THE EAST 
END OF A HALLWAY/' 
160 DATA 23, 31, 28, 26, 0, 0, "IN A BE 

DROOM.", 0, 0, 0, 27, 0, 0, "IN A PAN 

TRY.", 25, 0, 0, 0, 0, 
170 DATA "IN THE LOBBY.", 26, 34, 0, 0, 
0, 0, "IN THE LIVING ROOM.", 27, 0, 

0, 0, 0, 0, "IN A WALK IN CLOSET.", 2 

8, 0, 0, 0, 0, 0, "*0N AN UNCUT LAWN. 

180 DATA 0, 0, 34, 0, 0, 0, "*AT THE FR 
ONT OF HOG JOWL MANSION.", 0, 36, 0, 
33, 0, 0, "*0N A NARROW LEDGE.", 0, 
, 0, 0, 0, 



190 DATA "*AT THE GATE TO HOG JOWL MANS 

ION.", 0, 0, 0, 0, 0, 0, "ON A BUS NA 

MED B DESIRE S .", 0, 0, 0, 0, 0, 0, "IN 

A BUS TERMINAL." 

200 DATA 0, 0, 39, 0, 0, 0, "IN A RESTR 

OOM.", 0, 0, 0, 38, 0, 0, "IN A WATER 

CLOSET.", 0, 0, 0, 39, 0, 0, "IN HOB 

OKEN, NEW JERSEY.", 38, 42, 38, 42, 3 

8, 42 

210 DATA "— UH OH! THERE 9 S A GUY HERE 

WITH A BIG NOSE AND A SPEECH 
IMPEDIMENT. ARRGH! IT 8 S CARL SAGAN.", 

0, 0, 0, 0, 0, 
220 DATA "IN A DUMBWAITER.", 0, 0, 44, 

0, 0, 21, "IN A ROOM BEARING THE SCEN 
T OF ALCOHOL.", 0, 0, 45, 0, 0, 0, "I 
N A STORAGE ROOM.", 0, 46, 0, 44, 0, 


230 DATA "IN A DUSTY ATTIC", 45, 0, 47 
, 0, 0, 0, "IN AN EVIL SMELLING ROOM. 
", 0, 0, 0, 46, 0, 
240 DATA "AT THE TOP OF AN ALUMINUM PSE 
UDO CHRISTMAS TREE. ", 0, 0, 

0, 0, 0, 31 
250 DATA "SIGN SAYS: FLOOR 1", "SIG", 1 
, 1, "PLAQUE", "PLA", 1,1, "DUMBWAIT 
ER", "DUM", 1, 2, "HAMMER", "HAM", 2, 
3, "PLIERS", "PLI", 2, 3, "WRENCH" 
260 DATA "WRE", 2, 3, "ELECTRIC BUZZ SA 
W", "SAW", 1, 3, "PUSHBUTTON SWITCH", 
"SWI", 1, 3, "STICK OF DYNAMITE", "D 
YN", 2, 3 
270 DATA "LOCKED METAL DOOR", "DOO", 1, 
3, "LOCKED METAL DOOR", "DOO", 1, 4, 
"SPIRAL STAIRCASE LEADING UP", "STA" 

, 1, 4 
280 DATA "CORPSE", "COR", 2, 6, "*RICHA 
RD NIXON WRISTWATCH*", "WAT", 2, 6, " 
PUDDLES OF BLOOD AND GORE", "PUD", 1, 
6 
290 DATA "DISEMBODIED LIMBS", "LIM", 2, 
6, "*D0NALD DUCK NITE LITE*", "LIT", 
2, 13, "SIGN SAYS: FLOOR 2", "SIG", 

1, 21, "PLAQUE", "PLA", 1, 21 

300 DATA "*LAVA LAMP*", "LAM", 2, 23, " 
BOOKCASE", "BOO", 1, 23, "SECRET PASS 
AGE", "PAS", 0, 23, "*SECRET DECODER 
RING*", "RIN", 0, 24 

310 DATA "DESK", "DES", 1, 24, "DRAWER" 
, "DRA", 1, 24, "SPIRAL STAIRCASE LEA 
DING DOWN", "STA", 0, 24, "REFRIGERAT 
OR", "REF", 1, 25 

320 DATA "BUTCHER BLOCK", "BLO", 1, 25, 
"*GINSU KNIFE*", "KNI", 0, 25, "DUMB 
WAITER", "DUM", 1, 25, "PIGGY BANK", 
"BAN", 2, 28, "WINDOW", "WIN", 1, 35 
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'.. this is not only a worthwhile book 
but a great book. My advice is to get it 
and USE it!' - William Barden Jr. 



MYS 





312 pages 
$29.95 

Get them at your local IJG dealer! 

'It has twelve thousand one-liners 

in it, and every one is great!' 

- Dennis Kitsz. Phone orders (71 4) 946-5805 

TKS-SO is a trademark of Tandy, Microsoft is trademark of Microsoft. 



TRS-80 Disk and Other Mysteries is the 
definitive fixit book for disk users. Writen 
by Harvard Pennington it has more than 
130 pages of easy to read, entertaining and 
immensely useful information - find out 
how to recover disk files, the layout of 
information on the disk, memory maps, 
problem solutions ... the list goes on! 

Many readers have saved days of work 
by recovering files that had been unread- 
able. Now in its fourth updated printing, 
TRS-80 Disk and Other Mysteries has 
been getting rave reviews in several mag- 
azines. Yours for only $22.50 (plus $3.00 
shipping, CA residents please add $1.35 
sales tax). 

Microsoft BASIC Decoded and Other 
Mysteries is the complete guide to your 
Level II ROMs. With over seven thousand 
lines of comments and 6 additional chap- 
ters packed with information, this is easily 
the biggest, and best, book about the Level 
II ROMs available. 

Exploit the full power of Microsoft 
BASIC, with the aid of more than 300 
pages of tested examples, understandable 
explanations and detailed comments. Now 
available in a revised second printing, only 
$29.95 (plus $3.00 shipping, CA residents 
add $1.80 sales tax). 




IJG Computer Services, 
1260 West Foothill Blvd., 
J J B L Upland, CA 91786 
Please send me the following 
Other Mysteries: 

□ TRS-80 Disk for $22.50 

□ Microsoft BASIC Decoded for $29.95 
D The Custom TRS-80 for $29.95 

□ BASIC Faster and Better for $29.95 

□ The BFBLIB Disk for $19.95 

□ The BFBDEM Disk for $19.95 
Please add $3.00 per book, or disk, 
for shipping. 

Overseas airmail $8.00 per book. 
California residents add 6% sales tax. 

Name 

Address 

City... 

State Zip 

Charge my: 

□ MasterCard Interbank Code 

Q Visa Expiration Date 

Card No 

□ Check enclosed for *... 

□ Ship COD ($3.00 extra) 

Signature 
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330 DATA "DIME",, "DIM", 0, 28, "LARGE B 
ED", "BED", 1, 28, "*CEREM0NIAL BED P 
AN*", "PAN", 0, 28, "WALK IN CLOSET", 
"CLO'V 1^ 28 

340 DATA "*BILLY JOWL (SIC) RECORD AL 
BUM*", "ALB", 2, 29, "UMBRELLA", "UMB 
", 2, 30, "*ALUMINUM PSEUDO CHRISTMAS 
TREE*", "TRE", 1, 31 

350 DATA "BOLTS", "BOL", 0, 31, "WINDOW 
", "WIN", 1, 31, "*DICE EARRINGS*", " 
EAR", 2, 32, "SPRINKLER SPRAYING WATE 
R", "SPR", 1, 33 

360 DATA "*PLASTIC FLAMINGO*", "FLA", 
, 33, "SIGN SAYS! LOOK SP 00 .", "SIG", 

1, 33, "WELCOME MAT", "MAT", 2, 34, 
"KEY", "KEY", 0, 34 

370 DATA "LARGE DOOR", "DOO", 1, 34, "M 
AILBOX", "MAI", 1, 36, "STICK", "STI" 
, 2, 36, "SIGN SAYS! BEWARE OF DOG", 
"SIG", 1, 36 

380 DATA "MANSION", "MAN", 1, 36, "GUAR 
D DOG", "DOG", 1, 36, "POSTCARD", "PO 
S", 0, 36, "NOTE", "NOT", 0, 36, "PAP 
ER CLIP", "CLI", 0, 36 

390 DATA "BUS", "BUS", 1, 36, "BUSDRIVE 
R", "DRI", 1, 37, "GATE", "GAT", 1, 3 
7, "BUS TERMINAL", "TER", 1, 37, "BUS 
", "BUS", 1, 38, "BILLBOARD", "BIL", 
2, 38 

400 DATA "LOCKED WATER CLOSET", "CLO", 
1, 39, "SINK", "SIN", 1, 39, "LARGE S 
PIGOT", "SPI", 1, 39, "DAISY SADDLEPA 
L BB GUN", "GUN", 2, 39 

410 DATA "TOILET", "TOI", 1, 40, "SIGN 
SAYS! LEAVE TREASURES* HERE THEN SAY 
: SCORE", "SIG", 1, 40, "SIGN SAYS: F 
LOOR 3", "SIG", 1, 43 

420 DATA "PLAQUE", "PLA", 1, 43, "DISTI 
LLERY", "DIS", 2, 44, "*FOGHORN LEGHO 
RN JELLY GLASSES*", "GLA", 2, 44, "DU 
MBWAITER", "DUM", 1, 44 

430 DATA "55 GALLON DRUMS FILLED WITH A 
LCOHOL", "ALC", 1, 45, "CLOSED DOOR", 
"DOO", 1, 45, "DEAD IRS AGENT", "AGE 
", 0, 45 

440 DATA "*GOLD FILLINGS*", "FIL", 0, 4 
5, "*WING TIPPED PATENT LEATHER SHOES 
*", "SHO", 0, 45, "CHEST", "CHE", 2, 
46, "MATCH", "MAT", 0, 46 

450 DATA "FALSE PANEL IN FLOOR", "FLO", 
1, 46, "ELDERLY COW WITH MORNING BRE 
ATH", "COW", 1, 47, "DOOR", "DOO", 1, 
47 

460 DATA "FALSE PANEL IN CEILING", "CEI 
", 1, 48, "GO", "WAL", "RUN", "N", "S 
", "E", "W", "U", "D", "TAK", "GET", 
"INV", "I", "THR", "DRO% "CLI" 



470 DATA "ENT", "SHO", "TUR", "JUM", "M 
OV", "OPE", "SCO", "PUS", "PIC", "BRE 
", "INS", "UNL", "UNB", "DRI", "LIG", 
"PUL", "LOO", "EXA" 

480 DATA "REA", "HEL", "QUI" 

490 CLEAR 200 I DEFINT A - I 

500 DIM A(83), A$(83), B(48), B$(36), C 
(48), C$(48), D(48), D$(83), E(48), F 
(48), G(48), H(83) 

510 FOR I = 1 TO 48 : READ C$(I), B(I), 
C(I), D(I), E(I), F(I), G(I) : NEXT 

520 FOR I = TO 83 : READ D$(I), A$(I) 

, H(I), A(I) : NEXT 
530 FOR I = TO 36 : READ B$(I) : NEXT 

540 A = 38 : C$ = CHR$(93) + STRING$(62 

, 45) + CHR$(94) 
550 CLS : PRINTS) 2, "-" : PRINTS 579, " 

WELCOME TO THE ADVENTURE OF HOG JOWL 

MANSION! VERSION 1J2" : PRINTS 664, 

"BY JON J B WAPLES" 
560 IF A = 42 THEN PRINT "YOU HAVE LOST 

ALL *TREASURES* a " : GOTO 2310 
570 GOSUB 2000 : D$ = "" : E$ = "" i A$ 
= "" : PRINTS 960,; : INPUT " 

-- > TELL ME WHAT TO DO"; D$ 
580 FOR I = 1 TO LEN(D$) : IF MID$(D$, 

I, 1) = " " THEN 590 ELSE NEXT : GOTO 
600 
590 E$ = RIGHTS (D$, LEN(D$) - I) ! A$ = 

LEFTS (E$, 3) 
600 B$ = LEFTS (D$, I - 1) 
610 FOR I = TO 36 : IF B$(I) = LEFTS ( 

BS, 3) THEN 630 ELSE NEXT 
620 PRINT "I DON B T KNOW HOW TO " CHR$(3 

4)B$ CHR$(34)" SOMETHING." : GOTO 560 

630 ON I + 1 GOTO 650, 650, 650, 650, 6 

60, 670, 680, 690, 700, 960, 960, 104 

0, 1040, 1110, 1200> 690, 710, 1230, 

1320, 1350, 1360, 1410, 1490, 1500, 1 

540, 1570, 1600 
640 ON I - 26 GOTO 1630, 1640, 1660, 16 

80, 1730, 1750, 1750, 1870, 1930, 230 


650 IF AS = "NOR" OR B$ = "N" THEN IF B 

(A) > THEN A = B(A) : GOTO 950 
660 IF AS = "SOU" OR B$ = "S" THEN IF C 

(A) > THEN A = C(A) : GOTO 950 
670 IF AS = "EAS" OR B$ = "E" THEN IF D 

(A) > THEN A = D(A) ! GOTO 950 
680 IF AS = "WES" OR B$ = "W" THEN IF E 

(A) > THEN A = E(A) : GOTO 950 
690 IF AS = "UP" OR B$ = "U" THEN IF F( 

A) > THEN A = F(A) : GOTO 950 
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HOW ACCEL2 WORKS, PART 2 

TRS-80 Model l/lll BASIC Compiler 

The ACCEL2 program has worked fine! I used it to compile a 
BASIC WORD PROCESSOR that was published in 80 MICROCOMPUTING 
in their MAY 1980 issue. It was necessary to go through all 
of the far-next loops because of the many jumps out of them 
and make corrections, but when that job was done the program 
worked fine. I am using it to write you this letter.- The 
final program fits into a 32K machine. 



99 



ACCEL* 



amazircG 



but 



I had boijGht 



an Othello 
the inter b 



3 couple of 
'laaed it because of the interminably lona time 
(2-3 minutes) it took the computer to make each move - no fur. at 
all. Just for the heck of it I ran ACCEL2 on it, makina NO chanses 
whatsoever to the prosramr and the whole thinG compiled at once with 
no tinkerina! It then took about 10 seconds per move, so I added a 
sinale statement at the besinnins to DEFINT A-Zr recompiled, and the 
is Just as Good as an assembly-lanGuase proGram - only a 
of seconds per move! 



suit 



I also wish to state that I think that ACCEL2 is an excellent product. I have 
modified Scott Adams' Backgammon game to compile under ACCEL2 as an example. 
The original BASIC program takes 30 to 40 seconds for the average move and can 
take as much as 4 minutes. The compiled version averages 2 to 3 seconds per 
move with a maximum move time of 9 seconds (all integer variables). That is 
significant!! 

•I'VE BEFN PLAYIr'G WITH JCCEL2 FCR A FEWHOOTS r-.TW At'D IT 
SEEPS, Tf BE PRETTY GOOD. FOR EXAMPLE, FY LFVEL 2 VFRSICN OF 

RACI0 SHACK'S CHECKERS GAMF DR/WS THE FOARD IN 19 TECOrOS 
AND MAKES THE SECOND MOVE If 11 SECONDS- THE CEMPILED 
VERSION DRAV'S TEHE TOARD IN 11 SECOrDS n>0 MOVE* IN 

UNDER t SECOND (A6TUT C.5). A PROGRAM TO GRAPK CU1IC 
ECUmof'S TOOK P SECOND? PEP PLOT, WHILF THF C0NPILFD CFPY 
TAKES I.FSS THAN 2. 

1 HAVE COMPILED ONI? PROGRAM I USL RATHER FREQUFNTI Y! IT EXTRACTS 
INFORMATION FROM A LARGE DTSK FTI [.' < 1 3\>.» A'l-BYTF RPnnRDS PfP DT'-iK) 
AND PRODUCES A RE FOR I. THE IN1ERPREIED VERSION OCCUPIES ABOUT -1600 
BYTES AND TAKES 1.8 MIN TO EXTRACT INFORMATION FROM ONF DISK. THE 
COMPILED VERSION TAKES JUST OVER' 3 HIM to PERFORM THE SAMP TASK. 
SINCE A TYPICAL Rt.PUR] INVOLVES ANYWHERE FROM 5 TO 25 DISKS, THIS 
J '.J A SUBSTANTIA! SAVINO UF T'f'll:, 

ACCEL2: 32K TRS-80 Model l/lll . Compiles selected subset in all variable types, local and 
global compilation options, output save to ES/F wafer, disk under TRSDOS, NEWDOS, 
NEWDOS/80. New functional improvements in place. 

\V $88.95 + $2.00 shipping 

Developed in Britain B ALLEN GELDER SOFTWARE Mastercharge/Visa 

by Southern Software m Box 11721 Main Post Office CAadd6% 

Circle tt 41 ffv, San Francisco, CA 94101 

Circle ff<n Jk> (415)387-3131 

TRS-80, TRSDOS tm Radio Shack ^A5 stringy/ Floppy tm exatron inc. NEWDOS tm Apparat, Inc 




© @ 

® © 

I LOW-LEVEL CENTER % 

1 TRS-80 Model l/III 



STRETCH SUPERSTEP: New third generation Z80 simu- 
lator is the leading element of the Software CPU design base Ani- 
mated Z80 Programming Models. Intelligent RAM Window 
scrolling disassembler are now extended New modules are 
FLTCUR 2-D byte oriented editor with full floating cursor and auto 
repeat plus innovative BUFSTF user-defined buffer/window 
setup for flexible skeleton program views Use BUFSTF to view 
large amounts of disassembled code, isolate all instances of 
selected instructions in several formats, more Gather instruction 
frequency counts in straight-line or program-flow order for 
sophisticated analysis of subject programs and Z80 resource use 
Many formatted transparent printer options, including screen pix 
and instruction-by-instruction tabular listing of all active machine 
aspects Pictorial manual gives easy intro to program operation. 
Nothing newer for byte-entry, debugging and analysis of Z80 
machine language programs $39.95 + $2 00 shipping 

EMU 02e: Detailed instruction-level 6502 simulator with ani- 
mated before/after 6502 Programming Models (registers, flags 
and stack) and scrolling instruction stream disassembler active in 
Single-step and 4-speed TRACE modes, also special high speed 
interpreter running over 5% actual 1 mhz 6502 processor speed 
Have a 6502 without having a 6502. find out why the 6502 brain 
was picked by Apple PET. Atari arcade machines, etc $29 95 
+ $2.00 shipping 

BALC0DE 80A: Highly interesting mid-level language for 
TRS-80 Model I IBM's BAL (Basic Assembler Language) is an 
idealized machine instruction set currently in use on the IBM 
360/370 BALC0DE 80A implements an extended BAL subset va 
a text editor and macro assembler, you write in BAL with 20 
p-registers (16 general purpose. 4 floating point) and powerful 
addressing modes then assemble to fast Z80 code. Hands on 
introduction to BAL. source programs are highly portable to make 
your TRS-80 an IBM workalike! Includes 106 page IBM reference 
publication describing BAL From Balcode Software $79 00 + 
$3 00 shipping 



COMPILER 
WORKSTATION 

TRS-80 Model I and HI 

Your BASIC program development 
could go faster. . . 

EDIT: Full-Screen BASIC editor with floating cursor and auto- 
repeat More than 30 commands and functions let you var- 
iously find, change, insert, delete, replace, replicate, copy 
move or position BASIC text at the character, string, line or 
block level Developed in Britain by Southern Software Mod I 
III $40 00+1 50 shipping 

PACKER: (Cottage Software) Editing tool will unpack, shorten 
repack, renumber all or part of your BASIC text The UNPACK 
segment is very useful when preparing BASIC source pro- 
grams for compilation by ACCEL2 Mod I. Ill $29 95+ 1 00 
shipping 



• Then your BASIC program 
| could go faster... 



ACCEL2: Compiler for TRS-80 Mod I. Mod III Disk BASIC New 
functional improvements in place to give more ease-of-use 
quicker compilation of large programs, better chaining of com 
piled and non-compiled programs Size read-out helps you 
monitor code growth during compilation REM N0ARRAY option 
lets you use variable-bound arrays Professionals note Com 
prehensive instructions show how to organize your compiled 
programs for resale on tape. ES/F water or disk No royalties' 
Developed in Britain by Southern Software . Specify Mod I or I II 
$88 95 + $2 00 shipping 

TSAVE: Writes compiler output to independent SYSTEM tape 
$9 95 + $1.00 shipping 

EXEC: Command-List Processor for TRS-80 Mod I Prepare, 
execute, pass as many as nine parameters to lists of TRSDOS 
or NEWDOS commands and/or BASIC statements Simplifies 
repetitive procedures such as power-up sequences, file set- 
ups etc Compatible with ACCEL2 compiler disk output 
Developed in Britain by Southern Software $22 00 + $1 00 
shipping 



M/C.VISA 

CA add 6% 

Circle # 104 




(415) 387-3131 
P.O. BOX 11721 SAN FRANCISCO, CA 94101 

TRS-80. TRSDOS tm Radio Shack ES/F tm Exatron 
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700 IF A$ = M D0W" OR B$ = "D" THEN IF G 

(A) > THEN A = G(A) : GOTO 950 
710 IF A$ = "DUM" AND A = 2 THEN IF B = 
THEN A = 1 : GOTO 950 ELSE PRINT " 

SOMETHING WON'T FIT." : GOTO 560 
720 IF A$ = "DOO" AND A = 3 THEN IF LEF 

T$CD$C9), 2) = "UN" THEN A = 4 : GOTO 
950 ELSE 2220 
730 IF A$ = "DOO" AND A = 4 THEN IF LEF 

T$CD$C10), 2) = "UN" THEN A = 3 : GOT 

950 ELSE 2220 
740 IF A$ = "STA" AND A = 4 THEN A = 24 

: GOTO 950 
750 IF A$ = "PAS" AND A = 23 THEN IF H( 

21) = 1 THEN A ■= 24 : GOTO 950 ELSE 2 

220 k 

760 IF A$ = "STA" AND A = 24 THEN IF H( 

25) = 1 THEN A = 4 : GOTO 950 ELSE 22 

20 . , 

770 IF A$ = "DUM" AND A = 25 THEN IF B 

= THEN A = 21 : GOTO 950 ELSE PRINT 
"SOMETHING WON B T FIT." : GOTO 560 
780 IF A$ = "REF" AND A = 25 THEN PRINT 
"GAG,, GASP, COUGH, BELCH... I SUFFOC 

ATED!" : GOTO 2280 
790 IF A$ = "CLO" AND A = 28 THEN A = 3 

2 s GOTO 950 
800 IF A$ = "WIN" AND A = 31 THEN A = 3 

5 : GOTO 950 

810 IF AS = "TRE" AND A = 31 THEN IF H( 
38) = 1 THEN A = 48 : GOTO 950 ELSE P 
RINT "I CAN'T. THE TREE'S TOO UNSTABL 
E„" s GOTO 560 

820 IF A$ = "DOO" AND A = 34 THEN A = 3 

: GOTO 950 

830 IF AS = "WIN" AND A = 35 THEN A = 3 

1 : GOTO 950 

840 IF A$ = "BUS" AND (A = 36 OR A = 38 

) THEN A = 37 : GOTO 950 
850 IF A$ = "MAN" AND A = 36 THEN IF LE 

FT$CD$C52), 4) = "DEAD" THEN A = 34 : 
GOTO 950 ELSE PRINT "THE DOG WON'T L 

ET ME." : GOTO 560 
860 IF A$ = "GAT" AND A = 37 THEN A = 3 

6 : GOTO 950 

870 IF A$ = "TER" AND A = 37 THEN A = 3 

8 : GOTO 950 
880 IF A$ = "CLO" AND A = 39 THEN IF LE 

FT$CD$C62), 2) = "UN" THEN A = 40 : G 

OTO 950 ELSE 2220 
890 IF A$ = "TOI" AND A = 40 THEN PRINT 

"AH... I FEEL RELIEVED!" : GOTO 560 
900 IF A$ = "DUM" AND A = 44 THEN IF B 

= THEN A = 43 s GOTO 950 ELSE PRINT 
"SOMETHING WON'T FIT." : GOTO 560 . 



910 IF A$ = "FLO" AND A = 46 THEN IF H( 

38) = 1 THEN A = 48 : GOTO 950 ELSE P 

RINT "I CAN'T, THERE'S NOTHING ON THE 

OTHER SIDE." : GOTO 560 

920 IF A$ = "DOO" AND A = 47 THEN PRINT 

"COW WON'T LET ME." : GOTO 560 
930 IF A$ = "CEI" AND A = 48 THEN A = 4 

6 : GOTO 950 
940 PRINT "I CAN'T GO IN THAT DIRECTION 

." : GOTO 560 
950 PRINT "OK." : GOTO 560 
960 IF A$ = "INV" THEN 1040 
970 GOSUB 2200 

980 IF I = 38 AND A = A(I) AND H(I) = 1 
THEN PRINT "I CAN'T, IT'S BOLTED TO 
THE FLOOR." : GOTO 560 
990 IF I = 76 AND A = A(I) AND H(I) = 1 
THEN PRINT "I CAN'T, .THEY'RE FASTENE 
D TO HIS FACE." : GOTO 560 
1000 IF B = 6 THEN PRINT "I'M CARRYING 
TOO MUCH. I'M NOT A FORKLIFT!" : GOT 
560 
1010 IF A(I) <> A OR H(I) = THEN 2230 

1020 IF H(I) = 1 THEN PRINT "I'M TOO WI 

MPY TO DO THAT B " : GOTO 560 ELSE IF I 

= 45 AND H(46) = THEN PRINT "I HEA 

R A JINGLE." : H(46) = 2 : A(I) = : 

B = B + 1 : GOTO 560 

1030 ACI) = : B = B + 1 : PRINT "OK." 

: GOTO 560 
1040 PRINT : PRINT "I AM CARRYING THE F 

OLLOWINGs" 
1050 IF B = THEN PRINT "NOTHING AT AL 

L." : GOTO 560 
1060 FOR I = TO 83 
1070 IF ACI) > THEN 1100 
1080 IF 60 - POS(O) < LEN(D$(D) THEN P 

RINT 
1090 PRINT D$(I>". "; 
1100 NEXT : PRINT : GOTO 560 
1110 GOSUB 2200 
1120 IF A(I) > THEN PRINT "I'M NOT CA 

RRYING IT." : GOTO 560 
1130 PRINT "IN ONE WORD TELL ME WHAT TO 

THROW IT AT." 
1140 GOSUB 2000 
1150 GOSUB 2200 
1160 G = I : PRINTS) 960,; : INPUT " ~ 

— — > TELL ME WHAT TO DO"; E$ 
1170 GOSUB 2200 

1180 IF ACI) <> A OR HCI) = THEN 2230 

ELSE IF LEFT$CE$, 3) = "DOG" AND HC5 

2) = 1 THEN PRINT "DOG CONSUMES IT AN 

D BURPS." : ACG) = A : HCG) = : B = 

B - 1 : GOTO 560 
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Print two ways. . .correspondence quality and high speed data processing. 



The new T-1805 dual purpose serial printer uses a unique 
40 x 18 matrix dot pattern for high quality correspondence 
printing; or, flip a switch, it uses a 7 x 9 matrix for high 
speed data processing printing. In the high speed mode, 
it generates reports at time-saving throughput rates 
reaching 200 lines per minute. In the reduced speed 
correspondence mode, its pivoting print head lays down 
overlapping dots to create a letter-perfect character that 
looks like it came from an office typewriter. 

The T-1 805 is the latest evolution in the popular and 
proven T-1000 series of serial printers. As such, the 



T-1805 offers the same quality construction, high reliabil- 
ity, ease of operation and operator conveniences. Plus, 
for the benefit of the office crew, the T-1 805 is exception- 
ally quiet. Its 53 dbA noise level ranks it as the quietest 
impact printer on the market. 

There's much more to tell, so visit or call your 
Mannesmann Tally sales outlet today. 

Mannesmann Tally, 8301 South 180th Street, Kent, WA 
98031. Phone (206) 251-5524. 



Printers for the long run 




Fun-n-games. 



1190 A(G) = A : B = B - 1 : PRINT "OK." 

: GOTO 560 
1200 GOSUB 2200 
1210 IF A(I) > THEN PRINT "I'M NOT CA 

RRYING IT-" : GOTO 560 
1220 A(I) = A : B = B - 1 : PRINT "OK-" 

: GOTO 560 
1230 GOSUB 2200 
1240 IF A(65) > THEN 2220 
1250 IF I = 65 THEN 2240 
1260 IF I = 81 THEN PRINT "I CAN'T, COW 

S ARE IMMUNE TO BB'S." : GOTO 560 
1270 IF A <> A(I) THEN 2230 
1280 PRINT "PLINK!" 
1290 IF I = 52 THEN D$(I) = "DEAD GUARD 

DOG" : H(I) = 2 
1300 IF I = 57 THEN D$(I) = "DEAD BUSDR 

IVER" : H(I) = 2 
1310 GOTO 560 
1320 GOSUB 2200 : IF A <> A(I) OR H(I) 

= THEN 2230 
1330 IF I = 64 THEN PRINT "SQUEAK!" : D 

$(42) = "SPRINKLER" : H(42) = 2 : H(4 

3) = 2 ELSE PRINT "NOTHING HAPPENS." 
1340 GOTO 560 
1350 IF A = 35 AND (A$ = "" OR A$ = "DO 

W" OR A$ = "LED") THEN PRINT "SPLAT!" 
: GOTO 2280 ELSE PRINT "I CAN'T GO I 

N THAT DIRECTION." : GOTO 560 
1360 GOSUB 2200 
1370 IF I = 20 AND H(21) = THEN IF A 

= A(I) THEN PRINT "THERE'S A STRANGE 

NOISE." : H(21) = 1 : GOTO 560 
1380 IF I = 23 AND HC25) = THEN IF A 

= A(I) THEN PRINT "THERE'S A STRANGE 

NOISE." : H(25) = 1 : GOTO 560 
1390 IF I = 45 AND H(46) = THEN IF A 

= A(I) THEN PRINT "I HEAR A JINGLE*" 

: H(46) = 2 : GOTO 560 
1400 PRINT "OK." s GOTO 560 
1410 GOSUB 2200 : IF A <> A(I) AND A(I) 

<> OR H(I) =0 THEN 2230 
1420 IF I = 24 AND D$(24) = "DRAWER" TH 

EN H(22) = 2 s D$(24) = "OPEN DRAWER" 
: GOTO 1480 
1430 IF I = 48 AND D$(48) = "MAILBOX" T 

HEN H(53) = 2 : H(54) = 2 : H(55) = 2 
: D$(48) = "OPEN MAILBOX" : GOTO 148 


1440 IF I = 74 AND A = 45 THEN IF D$(74 

) = "CLOSED DOOR" THEN H(75) = 1 : PR 

INT "I HEAR A DULL THUD." : D$(74) = 

"OPEN DOOR WITH BRICK WALL BEYOND" : 

GOTO 560 ELSE PRINT "IT'S ALREADY OPE 

N!" : GOTO 560 



1450 IF I = 78 AND D$(78) = "CHEST" THE 

N H(79) = 2 : D$(78) = "OPEN CHEST" : 
GOTO 1480 
1460 IF I = 37 AND NOT(D) THEN PRINT "0 

PENING AN UMBRELLA INSIDE IS BAD LUCK 

!" : PRINT "A SECRET DOOR OPENS BELOW 
ME... I SLIDE DOWN A RAZOR BLADE" : 

PRINT "INTO A POOL OF ALCOHOL." s GOT 

2280 
1470 PRINT "NOTHING HAPPENS." : GOTO 56 


1480 PRINT "SOMETHING FALLS OUT." : GOT 

0- 560 
1490 GOSUB 2250 : GOTO 560 
1500 GOSUB 2200 
1510 IF I <> 7 THEN 2240 
1520 FOR I = TO 83 : IF A(I) = AND 

LEFT$(D$(I), 1) = "*" THEN A(I) = A : 
HCI) = : B = B ~ 1 : PRINT "WHIRRR 

! BUZZ SAW RIPS THE "D$(D : PRINT " 

RIGHT OUT MY HANDS AND DESTROYS IT!" 

: GOTO 560 
1530 NEXT : PRINT "BUZZ SAW TURNS ON FO 

R A MOMENT... THEN STOPS." : GOTO 560 

1540 IF A$ <> "LOC" THEN 2240 

1550 IF A(55) <> OR A <> 4 THEN 2220 

1560 PRINT "OK." : D$(9) = "UNLOCKED ME 

TAL DOOR" : D$(10) = "UNLOCKED METAL 

DOOR" : GOTO 560 
1570 GOSUB 2200 : IF A(I) <> A AND A(I) 
<> OR HCI) = THEN 2230 ELSE IF I 
<> 30 THEN PRINT "I CAN'T, IT'S UNBR 

EAKABLE." : GOTO 560 
1580 IF A(3) = AND (A(30) = OR A(30 

) = A) AND D$(30) = "PIGGY BANK" THEN 
PRINT "SMASH! I HEAR A JINGLE,," : H 

(32) = 2 s AC32) = A : D$(30) = "PIEC 

ES OF BROKEN PIGGY BANK" : A$(30) = " 

PIE" ELSE 2220 
1590 GOTO 560 

1600 GOSUB 2200 : IF I <> 32 THEN 2240 
1610 IF A = 39 AND A(32) = THEN PRINT 
"DOOR FLIES OPEN!" : D$(62) = "UNLOC 

KED WATER CLOSET" : A(32) = 39 : H(32 

)=0:B=B-1 ELSE 2220 
1620 GOTO 560 

1630 GOSUB 2200 : GOTO 2240 
1640 GOSUB 2200 : IF I <> 38 THEN PRINT 

"IT ISN'T BOLTED." : GOTO 560 
1650 IF A = 31 AND A(5) = THEN PRINT 

"OK." : H(38) = 2 : H(39) = 2 : GOTO 

560 ELSE 2220 
1660 GOSUB 2200 : IF A(I) <> A AND A(I) 
<> OR HCI) = THEN 2230 
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1670 IF I = 73 THEN PRINT "BURP... BOY 
AM I PLASTERED!" : GOTO 560 ELSE PRIN 
T "YUCK!" : GOTO 560 
1680 GOSUB 2200 : IF A(I) <> A AND A(I) 

<> OR H(I) =0 THEN 2230 
1690 IF A(79) <> THEN PRINT "I DON'T 

HAVE A MATCH." : GOTO 560 
1700 IF I = 8 OR I = 73 THEN PRINT "KAB 
OOM! MY BODY IS BLOWN INTO SMALL UNR 
ECOGNIZABLE PIECES." : B = B - 2 : AC 
I) = A : H(I) = : A(79) = A : H(79) 
= : GOTO 2280 
1710 IF I = 79 THEN PRINT "MATCH FLARES 
UP BRIEFLY. -. THEN DISINTEGRATES." : 
B = B - 1 : A(79) = A : H<79) = : 
GOTO 560 
1720 PRINT "IT WON'T BURN." : GOTO 560 
1730 GOSUB 2200 : IF A(I) <> A OR H(I) 

= THEN 2230 
1740 IF I = 76 THEN PRINT "OK." : H(I) 
=2:A(I)=0:B=B+1: GOTO 560 
ELSE PRINT "NOTHING HAPPENS." : GOTO 
560 
1750 GOSUB 2200 : IF A(I) <> A AND A(I) 

<> OR H(I) = THEN 2230 
1760 IF I = 1 OR I = 18 OR I = 69 OR I 
= 53 OR I = 54 OR I = 61 THEN PRINT " 
MAYBE I SHOULD READ IT?" : GOTO 560 
1770 IF I = 2 OR I = 29 OR I = 72 OR I 
= 9 OR I = 10 OR I = 47 OR I = 82 OR 
I = 11 OR I = 25 OR I = 21 OR I = 26 
OR I = 35 OR I = 62 OR I = 31 THEN PR 
INT "THERE'S SOMETHING THERE... MAYBE 
I SHOULD GO THERE?" : GOTO 560 
1780 IF I = 40 OR I = 51 OR I = 58 OR I 
= 56 OR I = 60 OR I = 59 OR I = 38 
R I = 80 OR I = 83 OR I = 66 THEN PRI 
NT "THERE'S SOMETHING THERE... MAYBE 
I SHOULD GO THERE?" : GOTO 560 
1790 IF I = 75 AND HC77) = THEN HC76) 

= 1 : H(77) = 2 : GOTO 1860 
1800 IF I = 33 AND H(34) = THEN H(34) 

= 2 : GOTO 1860 
1810 IF I = 27 AND H(28) = THEN H(28) 

= 2 : GOTO 1860 
1820 IF I = 30 THEN PRINT "IT LOOKS BRE 

AKABLE." : GOTO 560 
1830 IF I = 46 THEN PRINT "IT'S A KEY T 

AN EDSEL." : GOTO 560 
1840 IF I = 42 AND HC43) = THEN 1860 
1850 PRINT "I SEE NOTHING SPECIAL." : G 

OTO 560 
1860 PRINT "THERE'S SOMETHING THERE." : 

GOTO 560 
1870 GOSUB 2200 : IF A(I) <> A AND A(I) 
<> OR H(I) = THEN 2230 



1880 IF I = 1 OR I = 18 OR I = 69 THEN 

PRINT "MAXIMUM CAPACITY: 1 PERSON OR 

175 POUNDS." : GOTO 560 
1890 IF I = 53 THEN PRINT "DEAR LORD," 
: PRINT "HAVING A GREAT TIME, WISH YO 

U WERE HERE." : GOTO 560 
1900 IF I = 54 THEN PRINT "NOTE FROM TH 

E POST OFFICE:" : PRINT "POSTAGE DUE: 
42 CENTS." : GOTO 560 
1910 IF I = 61 THEN PRINT "YOUR MISSION 
IS TO REPOSSESS THE 13 TREASURES* 

F LORD HOG" : PRINT "JOWL AND STORE T 

HEM IN A PREDETERMINED PLACE... GOOD 

LUCK!" : GOTO 560 
1920 PRINT "I CAN'T, IT'S ILLEGIBLE." : 

GOTO 560 
1930 ON A GOTO 1950, 1950, 1960, 1960, 

1950, 1950, 1950, 1950, 1950, 1950, 1 

950, 1950, 1950, 1950, 1950, 1950, 19 

50, 1950, 1950, 1950, 1950, 1950, 197 

0, 1970 
1940 ON A - 24 GOTO 1950, 1950, 1950, 1 

950, 1950, 1950, 1950, 1950, 1950, 19 

50, 1950, 1980, 1950, 1980, 1990, 195 

0, 1950, 1950, 1950, 1950, 1950, 1950 

, 1980, 1950 
1950 PRINT "TRY EXAMINING THINGS." : GO 

TO 560 
1960 PRINT "I'M PRETTY GOOD AT PICKING 

LOCKS." : GOTO 560 
1970 PRINT "I USED TO BE A -MOVING- MAN 

." : GOTO 560 
1980 PRINT "I'M A PRETTY GOOD MARKSMAN. 

" : GOTO 560 
1990 PRINT "IT'S A PAY TOILET/' : GOTO 

560 
2000 FOR I = 2 TO 962 STEP 64 : C = PEE 

K(I + 15360) : PRINTS I - 2, CHR$(30) 

; : IF C = 45 THEN 2010 ELSE NEXT 
2010 PRINT CHR$(28)"I AM "; : IF LEFT$( 

C$(A), 1) = "*" THEN PRINT RIGHT$(C$( 

A), LEN(C$(A)) - 1); : D = - 1 ELSE P 

RINT C$(A); : D = 
2020 FOR I = TO 83 : IF A(I) = A AND 

H(I) > THEN 2030 ELSE NEXT : GOTO 2 

090 
2030 PRINT " VISIBLE ITEMS:" : PRINT 
2040 FOR I = TO 83 
2050 IF A(I) <> A OR H(I) = THEN 2080 



2060 IF 60 - POS(O) < LEN(D$(D) THEN P 

RINT 
2070 PRINT D$(D". "; 
2080 NEXT 
2090 PRINT 
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2100 F$ = "'• 

2110 IF B(A) > THEN F$ = "NORTH " 

2120 IF CCA) > THEN F$ = F$ + "SOUTH 
ii 

2130 IF D(A) > THEN F$ = F$ + "EAST " 

2140 IF E (A) > THEN F$ = F$ + "WEST " 

2150 IF F(A) > THEN F$ = F$ + "UP " 
2160 IF G(A) > THEN F$ = F$ + "DOWN " 

2170 IF F$ = "" THEN 2190 

2180 PRINT : PRINT "SOME OBVIOUS EXITS 

ARE: "F$ 
2190 PRINT C$; s RETURN 
2200 FOR I = TO 83 : IF A$(I) = LEFTS 

(E$, 3) THEN H = I s IF A(I) = A OR A 

(I) = THEN RETURN 
2210 NEXT : I = H : IF ASCI) = LEFT$CE$ 

, 3) THEN RETURN ELSE PRINT "I DON'T 

KNOW WHAT " CHR$C34)E$ CHR$C34)" IS*" 
: GOTO 560 
2220 PRINT "I CAN'T DO THAT. a „ YET!" : 

GOTO 560 
2230 PRINT "I DON'T SEE IT HERE." s GOT 

560 



2240 PRINT "I MUST BE STUPID, BUT I DON 
•T UNDERSTAND WHAT YOU MEAN." : GOTO 
560 
2250 E = : FOR I = TO 83 : IF ACI) 
= 40 AND LEFT$CD$CI), 1) = "*" THEN E 
= E + 1 
2260 NEXT : F = E * 100/13 : PRINT "YOU 
STORED"E"TREASURES B ON A SCALE OF 
TO 100 THAT RATES" *STR$(F)'V; 
2270 IF E = 13 THEN PRINT "EXCELLENT! 
YOU HAVE COMPLETED THIS ADVENTURE," : 
GOTO 2310 ELSE PRINT : RETURN 
2280 PRINT "I'M DEAD." : PRINT "MY BODY 

TELEPORTS ELSEWHERE." 
2290 PRINT "I SINCERELY HOPE I CAN FIND 
MY WAY OUT OF HERE. I DON'T" : PRIN 
T "THINK I CAN STAND IT MUCH LONGER!" 
: A = 41 : GOTO 560 
2300 GOSUB 2250 

2310 PRINT "THIS ADVENTURE IS OVER." 
2320 GOSUB 2000 : PRINTS 960,; s INPUT 
"DO YOU WANT TO PLAY THIS ADVENTURE A 
GAIN"; G$ 
2330 IF LEFT$CG$, 1) = "Y" THEN GOSUB 2 
000 : RUN ELSE IF LEFTS CG$, 1) = "N" 
THEN CLS : END ELSE 2320 ■ 



Circle # 43 




VOLUME I 

The most complete book yet 
on the math routines of the 
BASIC ROM, Models I & III. 
Contains a wealth of detail 
about integer, single and dou- 
ble precision formats, advanc- 
ed math, data manipulation, 
and assembly language inter- 
facing, with examples. In- 
cludes commented listing 
(0708H-1607H), plus a highly 
detailed map of the ROM and 
reserved RAM. 



VOLUME 
1 &11 

Comprehensive Guide to TRS-80* Assembly Language Routines 

Each Volume Priced At $14.95 Plus $1.50 Shipping/Handling 
VA residents add 4% tax • Foreign: send U.S. funds, add $4 ea. for overseas delivery 

'Trademark of Tandy Corp. 



INSIDERS SOFTWARE CONSULTANTS, INC. 

P.O. Box 7086, Dept. U 3 • Alexandria, VA 22307 

Please send THE B00K: □ Volume I □ Volume II 

Name : 

Add ress 

City 



. State 



.Zip. 



I 



Enclosed is □ check D M.O. for$ 

Charge to my □ VISA □ MasterCard Bank Code . 
Exp. date: Card No 

Signature 



1 VOLUME IS 

I Packed full of useful informa- 

I tion on the model I input/ 

I output routines, with de- 

I tailed listings to illustrate the 

I commented source code. 

I Learn to control and 

1 manipulate the keyboard, 

S video, printer port, and 

I cassette port. Essential for 

I assembly language program- 

I mers, you can write your own 

I routines or use the many p'ro- 

I gramming. examples included. 
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subs revisited 



4 

Now it's Z-language for all TRS-80 models 



Spencer Hall 



4HVMHM1 



•m 



Z-Language 

You may have seen and even (I 
hope) used my nine Z-Subroutines 
which appeared in 80-U.S. a year 
ago. If you did they you probably 
realized that there were bound to be 
more. You were absolutely right. 
Lazy programmer that I am, I had to 
have an easy way to do several 
common but elegant things in my 
BASIC programs without reinvent- 
ing the wheel each time. The 
repertoire has grown to where it has 
to be called Z-Language because, at 
this stage of the game, it's like a full 
scale enhancement of Level II 
BASIC. Take a quick look at the 
Z-Language Summary and then 
come back here to read how they 
operate. 

O.K. Some pretty elegant 
functions... yes? In case you missed 
the first article, here's how they 
work. You load them from tape, 
Stringy Floppy wafer, etc. when you 
start to program and statement 
simply jumps over them to line 200 
where your program actually starts. 
When you need one of the neat 
things that are described in the 
"Function" column of the summary, 
you simply call it with a GOSUB. If 
the function description mentions 
one of the Z-variables, you preface 
your call with a definition of that 
variable. 

To see how this works, just type in 
the first two lines, number and 1. 
Now write the following: 



200 CLS: ZT$="GOOD MORN 
ING, FOLKS' :GOSUB 1 

Run that and watch subroutine #1 

center your message on the top line. 
If you want to see your centered 
message hang on the screen until 
you touch a key, type in statement 
#9. Now add a line to your program 
like this: . 

) 

210 GOSUB 9 

When you run that program your 
message.. .which might be 
something different from what we 
suggested, of course. ..will simply 
hang there on the blank screen until 
you touch a key. That's just the 
beginning. After you've run this two 
liner and come back to BASIC and 
before you LIST or EDIT anything, 
enter (in COMMAND mode) ?Z$. 
Hey, that's the key you hit.. .if it was 
a character and not a control key. li' 
it was a digit from thru 9, try 
asking ?ZZ. That's a true number. 
not a string character. See the 
possibilities? Get fast action on IV 
Z-type statements. The Z-80 
microprocessor will test ten . or 
fifteen of these in a fraction of a 
second and you can get a different 
branch with every one... without 
having to ENTER a response. 

We've discussed just one 
subroutine to give you the general 
idea. Type yourself a few and try 






them with mini-programs or even in 
the command mode. The results will 
amaze you. When you test the screen 
boxes, #31, and #32, be sure to end 
your mini-program with a GOSUB 9 
so you wont ruin the shape you 
have produced. Several other 
subroutines return useful 
information, like ZO which is the 
address where the centered line was 
written by #11. Some of the printer 
subroutines may not work because 
printers are notoriously non- 
standardized. Your assignment, if 
you care to accept it, is to 
"translate" those that don't work 
into your printer's "native , ' 
language. 

Note that some of the Z-variables 

are mnemonic and get used over and 
over: ZT$, ZL, ZT. etc. Make your 
own subroutines. We've left plenty 
of room below 200. Define the 
variables differently in each of them 
and then call some Z-Language. 
This multiplies the versatility of 
your "package" manyfold. 

For a good look at Z-Language in 
action study the program listing for 
the Exatron Label Writer which is 
also in this issue. In particular, look 
at line 910 of that program to see two 
GOSUB 9 returning a line number 
toched by the user for instan- 
taneouslabeling of the text input 
box without the use of the ENTER 
key. 

You may want to copy some, but 
not all, of the subroutines we have 
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listed. The first nine are basic (no 
pun!) and the second nine include 
several which are -needed in order 
not to mess up the boxes created by 
#31 and #32. ..which you really ought 
to have. The flicker routines, 
numbers 43 and 44 are useful in 
teaching programs to signal 
"RIGHT" or "WRONG" after the 
student has answered a question. 
The number conversions, #50 and 



#51 are great if you are writing 
various kinds of monitors with 
PEEK statements. Type a few at a 
time and record them. Keep your 
numbers the same as ours or 
confusion can easily develop. 

The elegant way to do this is to 
have them on a five-foot Stringy 
Floppy wafer. When you get the urge 
to program, ZAP! You're in 
Z-Language in just a few seconds. 



By the time this appears in print, 
you should be able to get these from 
the Exatron Stringy Floppy Owners 
Association for the cost of one 
wafer. This will save you the trouble 
of copying them. ESFOA will be on 
the lookout for other subroutines to 
fit in all those missing numbers and 
we'll all be elegant program stylists 
with no effort at all. Disgusting isn't 
it? ■ 



Z-Language Summary 
GOSUB 29 does not apply to the Model II or Color Computer. 



8 9 



9 - 



# Lines Function 

1 — Centers text ZT$ on current line 

2 — Centers text ZB$ on bottom line 

3 142 Prints line of 64 of character ZC$ on 

current line 

4 3, 141, 142 Prints line of 64 of graphics block ZG 

on current line 

5 — Places cursor at start of line ZL 

6 — Erases screen below line ZP and re- 

turns cursor to start of line ZP+ 

7 — "Freezes" screen for ZS seconds 
Prints message "HIT ANY KEY TO 

PROCEED" on current line and 
"freezes" screen until user responds 
"Freezes" screen with no message un- 
til user hits a key. Defines Z$=(key 
hit). Also, if key is a single digit (0-9), 
defines ZZ as this number. 

11 — Centers text ZT$ on line ZL and de- 

fines ZO as the PRINT @ address for 
the start position of ZT$ 

12 2, 5 Same as #2 above but returns cursor 

immediately to start of line ZL. 

13 3, 5 Same as #3 above but writes the 64- 

character string on line ZL. 

14 4, 5 Same as #4 above but writes the 64 

graphics string on line ZL 

15 — Places cursor at tab position ZT on 

line ZL 

16 — Erases the screen from the top thru 

line ZE and returns cursor to top of 
the screen 

18 9 Same as #8 above except that the mes- 

sage appears on the bottom line 

17 — "Freezes" screen for ZS seconds and 

counts time with the message, "(n) 
SECONDS" at tab position, ZT on 
line ZL 

19 — Prints text ZT$ at tab position, ZT on 

line ZL and defines ZO as the PRINT 
@ address for the start of text ZT$ 
NOTE: The following printer subroutines use the 
TRS-80 mode control codes native to the Okidata Micro- 
line 80. 

21 26 Centers text ZT$ on a 64-character 

line using normal (10 per inch) char- 
acters 

22 26 Centers text ZT$ on a 32-character 

line using large (5 per inch) charac- 
ters and returns printer to normal 
(10 per inch) characters 



23 26, 142 Centers a string of ZN characters ZC$ 

on the line 

24 23, 26, Centers a string of ZN graphics 
141, 142 blocks ZG on the line 

25 — Feeds paper for ZN lines 

26 — Sets printers for 64-character line (8 

space margins). 
NOTE: The following specialty subroutines, although 
called by the line number shown, actually depend on 
subroutines which are listed beginning with line 101. 
29 101-105 Causes printer to reproduce the entire 

image on the screen. 

31 111-114 Draws a single line box around the ex- 

treme outer edge of the screen. 

32 106-110 Draws a double line box around the 
and 114 extreme edge of the screen 

41 115-119 Prints text ZT$ at tab position, ZT on 

line ZL surrounded by a single line 
box 

42 — Erases the contents of the box drawn 

by #41 but leaves the box 

43 120-122 Causes text ZT$ to flicker on and off at 

the center of the screen. Number of 
"on" flickers is set by value assigned 
to ZF and the time of each appear- 
ance is set by the value assigned to 
ZD. Default values are: ZF= and ZD 
=20. 

44 1 20-122 Same as #43 except that the text flick- 

ers at tab position ZT on line ZL 

51 124-134 Accepts a decimal value D and re- 

turns its hexadecimal equivalent as 
H$ 

52 136-140 Accepts a hexadecimal number H$ 

and returns its decimal equivalent as 
D 



Z-Language listing for Model I and III 

CLEAR 50(hCLS:G0T0 200 

1 PRJNTTAB(C64-LEN(ZT$))/2)ZT$^ RETURN 

2 Z=960* (64-LEN (ZB$) ) /2 : PRINTaZ # ZB$j : RE 
TURN 

3 GOSUB 142:PRINTTAB((64-ZN)/2)STRING$( 
ZN^ZC$);:RETURN 

4 GOSUB 141: GOTO 3 

5 PRINTS 64*ZL^;sRETURN 
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Better results. Microsoft's Level II! BASIC and Editor/ 
Assembler-Plus are programming tools that help you write 
complex programs in less time, with less effort and util- 
izing less memory. Better programs. No matter what your 
programming skill. And for the first time these tools are 
available on disk. 

Editor/ Assembler-Plus. A powerful editing, assembly and 
debugging tool with many sophisticated features that make 
writing TRS-80 assembly language programs easier, faster 
and more efficient. 

• Full disk capabilities. 

• Assembly directly into memory. No need to save object 
code then reload for execution. 

• Macro capability that allows you to define macros for 
commonly used sequences of instructions. 

• Conditional assembly that allows you to generate more 
than one version of a program. 

8 Eight breakpoints at a time for program debugging. 

• The INCLUDE statement that allows you to call additional 
disk files for assembly. 

• Other features include extensive operators, automatic 
origin, symbol table printout, quash command, hex, deci- 
mal and octal constants, single step-through instructions 
in memory, five type-out modes, four type-in radices, plus 
extensive edit commands. 

A more powerful BASIC. With Level III BASIC, you get 
power to perform tasks in BASIC that used to require 
assembly language. Plus, new ease-of-use features for 
your TRS-80. 

» Advanced graphics. Develop charts, graphs, even anima- 
tion in Level III BASIC. Draw a line, an outline box or 



a solid box by specifying just two points. Then save and 
recall it with BASIC commands. 

• MENU. One command that allows you to construct an 
entire menu. 

• CHAIN and COMMON commands allow you to call 
another program and pass variables to it. 

• Powerful editing commands such as COPY/TRANSFER, 
FIND and CHANGE. 

• DUMP command that makes debugging easier. 

» Time-limit response. New INPUT # LEN and LINE INPUT 
# LEN commands allow you to set a time limit on response. 

• RS-232 output from BASIC. With a single command. 

• More. Level III gives you automatic line numbering, 26 
user-definable single stroke instructions, and more. 

Disk or cassette. Disk versions of Level III and Editor/ 
Assembler-Plus are brand new. Cassette versions are also 
available with many of the same capabilities. 
Talk to your Microsoft™ dealer. Ask for a demonstration 
of two of the most powerful tools you can get for your 
TRS-80: Level III BASIC and Editor/Assembler-Plus. On 
disk or cassette. From Microsoft. 

TRS-80 is a trademark of Radio Shack, a division of Tandy Corporation. 

Microsoft is a trademark of Microsoft, Inc. 

Microsoft Consumer Products is a division of Microsoft, Inc. 





CONSUMERS PRODUCTS! 

400 108th Ave. N.E., Bellevue, WA 98004. (206) 454-1315 
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6 PRINTS 64*(ZP*1)^;[!F0R Z=1 TO 14-ZPsP 
RINTSTRING$(64," "); : NEXT s PRINTS 64*( 
ZP+1)^;s RETURN 

7 FOR ZZ=1 TO 345*ZSiNEXT ZZ: RETURN 

8 PRINTTAB(21)"TO PROCEED HIT ANY KEY" 

9 Z$,=INKEY$:IFZ$=""THEN 9 ELSE ZZ=VAL(Z 
$):RETURN 

10 '——THE NINE (NEARLY) SIMILAR Z-S 
UBROUTINES ' 

11 ZO=64+64*ZL-LEN(ZT$)/2-32iPRINTa ZO, 
ZT$;: RETURN 

12 GOSUB 2: GOTO 5 

13 GOSUB 5: GOTO 3 

14 GOSUB 5: GOTO 4 

15 Z=64*(ZL-1)+ZT:PRINTSZ^;:RETURN 

16 PRINTS 0^; : FOR Z=0 TO ZEsPRINTSTRING 
$(64/' ");:NEXT Z:PRINTS 0,;:RETURN 

17 N=1:F0R Z=1 TO ZSsFOR ZZ=1 TO 300sNE 
XT ZZ;PRINTSZL*64+ZT # N "SECONDS"; :N=N 
+1sNEXT ZsRETURN 

18 PRINTS981/*T0 PROCEED HIT ANY KEY";: 
GOTO 9 

19 ZQ=ZL*64+ZT SPRINTS ZO^ZT$; sRETURN 

20 ■——PRINTER Z-SUBROUTINES— — ' 

21 GOSUB 26^Z=(64-LEN(ZT$))/2:LPRINTTAB 
(Z)ZT$:RETURN 

22 GOSUB 26sZ=(32-LEN(ZT$))/2sLPRINTCHR 
S(31)" B LPRINTTAB(Z)ZT$:LPRINTCHR$(30)s 
RETURN 

23 GOSUB 26sG0SUB 142:LPRINTTAB( (64-ZN) 
/2)STRING$(ZN,ZC$):RETURN 

24 GOSUB 141: GOTO 23 

25 FOR Z=1 TO ZNsLPRINT" ":NEXT Z^RETUR 
N 

26 LPRINTCHR$(27)CHR$(66)sRETURN 

29 GOTO 101 

30 '——BOX BORDER Z-SUBROUTINES— — 

31 GOTO 111 •———SINGLE LINE BORD 
ER— 8 

32 GOTO 106 '——DOUBLE LINE BORD 
ER— ' 

40 "—"SPECIAL MESSAGE" Z-SUBROUTIN 
ES— ■ 

41 GOTO 115 

'—TEXT BOX— 8 

42 PRINT3PZ-1 ^STRINGS (Z+2," ");:RETURN 

'—-ERASE BOX— 1 

43 Z=480-LEN(ZT$)/2sG0T0 120 '■ CE 

NTER-SCREEN FLICKER—' 

44 Z=64*(ZL-1)+ZT-1:60T0 120 ' 

-FLICKER 3 ZT ON ZL— — ' 

50 '—MATHEMATICAL Z-SUBROUTINES— 

51 GOTO 124 '-—CONVERT DECIMAL 
TO HEX.—— 8 



52 GOTO 136 '———CONVERT HEX. TO 

DECIMAL—' 
100 '— REFERRED ROUTINES BEGIN HERE 



101 GOSUB 26 

102 FOR Z=15360 TO 16383 

103 IF PEEKCZX27 C=PEEK(Z)+64:G0T0 105 

104 C=PEEK(Z) 

105 LPRINTCHR$(C);;NEXT ZsRETURN 

106 TZ$=CHR$(191)+CHR$(131)+STRING$(6Q, 
179)+CHR$(131)+CHR$(191) 

107.MZ$=CHR$(191)+CHR$(128)+CHR$(191)+S 
TRING$(58,128)+CHR$(191)+CHR$(128)+CH 
R$(191) 

108 BZ$=CHR$(191)+CHR$(176)+STRING$(6Q, 
179)+CHR$(176) 

109 PRINT TZ$; 

110 FOR N=1 TO 14:PRINT MZ$; :NEXT:PRINT 
BZ$;:GOTO 114 

111 PRINTCHR$(191);sPRINTSTRING$(62 # CHR 
$(131));:PRINTCHR$(191); 

112 FOR N=1 TO 14sPRINTCHR$(192);:PRINT 
CHR$(191);:PRINTCHR$(254);:PRINTCHR$( 
191);:NEXT 

113 PRINTCHR$(191);:PRINTSTRING$(62^CHR 
$(176)); 

114 P0KE16383 / 191:RETURN 

115 Z=LEN(ZT$)iIF ZT=0 THEN PZ=64*ZL-Z/ 
2-32 ELSE PZ=64*(ZL-1)+ZT-1 

116 TZ$=CHR$(188)+STRING$(Z+2 i ,140)+CHR$ 
(188) 

117 BZ$=STRING$(Z+4^131) 

118 PRINTS PZ^ZT$; 

119 PRINTS PZ-66^TZS;: PRINTS PZ-2^CHR$( 
191 ); ^PRINTS PZ+Z+1 / CHR$(1 91 ); : PRINTS 

PZ+62^BZ$;:RETURN 

120 ZJ=LEN(ZT$):IF ZD=0 ZD=20 

121 IF ZF=0 ZF=3 

122 FOR D=1 TO ZD:PRINTSZ,ZT$; : FOR F=1 
TO ZF:NEXT F:PRINTSZ,STRING$(ZJ/' "); 
SFOR F=1 TO ZFsNEXT F:NEXT D:RETURN 

124 DEFINT H 

1 25 H1 =D/4096 : I=D-H1 *4096 : H2=I/256 : 1=1- 
H2*256sH3=I/16sH4=I-H3*16 

126 IF H1>9 Hl=Hl+55 ELSE Hl=Hl+48 

127 IF H2>9 H2=H2+55 ELSE H2=H2+48 

128 IF H3>9 H3=H3+55 ELSE H3=H3+48 

129 IF H4>9 H4=H4+55 ELSE H4=H4+48 

132 H$=CHR$(H1)+CHR$(H2)+CHR$(H3)+CHR$( 
H4):IF LEFT$(H$,2)="00" H$=RIGHT$(H$, 
2) 

133 IF LEFTS <H$,1)="0" H$=RIGHT$(H$„3) 

134 RETURN 

136 N=LEN(H$):M=N+1:F0R J=1 TO N:D$(J)= 
MID$(H$ # (M-J),1):NEXT 
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FED UP WITH PATCHES? 

v THEN MOVE UP TO 
^PROSOFTS NewScript: 



Easy-to-use Full Screen Editing 

Headings, Page Numbering, 

Centering 

Global Search and Change 

Table of Contents, Indexing 

All 12 MX-80 fonts + underlining 

Italics on GRAFTRAX MX-80 

Supports Diablo, Microline, Anadex 



Typehead — never loses 
keystrokes 

Form Letters, Big Documents 
Double Width, Underlining 
Sub-scripts, Super-scripts f 
Proportional font right-margin 
justification on 737, 739, L.P. IV, 
and now R/S Daisywheel II 

"EZSCRIPT", 



* 160 pages of excellent documentation includes "EZEDIT' 
self -study tutorial, and hundreds of examples 

* see review in Computronics, July 1981 

* runs under TRSDOS, NEWDOS, NEWDOS/80, LDOS, DOSPLUS 

* Requires 48K TRS-80 with one disk drive. Specify Model I or Model III 
fSome features work only if your printer has the mechanical capability. 



MewSeript 

Mailing Labels Option 

Special: New Script + Labels 



$ 39.35 
$ 23.35 
$115.00 



RPM measures the rotational speed and variation of your disk drives, and reveals a common 
cause of unexplained errors. Simple one-key operation, runs under any DOS, interchangeable 
between Models I and III. Shows current and average speeds, plus fluctuation history. Recovers 
from severe errors. Documentation explains how to adjust drives. Use RPM monthly for best 
results. 



32-48KModelIorIIIdisk: 



$24.95 





Monitors your BASIC programs while they run, then displays a simple change 
(usually one line) that can reduce run-times by as much as 50%. No hardware 
changes, and handles programs that cannot be compiled! Complex programs 
benefit the most. See review in Personal Computing, May, 1981. 



16-48K Model I or III, tape and disk: 



$23.95 



Order from your Software dealer, or from: 




QUICK COMPRESS 

Small (276 bytes), fast (processes 800 lines in under 3 seconds) 

utility removes blanks and remarks from your BASIC programs. 

Produces smaller, faster programs, and doesn't alter the 

original logic. 

16-48K Model I or III, tape and disk: $ 1 9.95 

SPECIAL FASTER + QUICK Compress: $39.35 

Dept. B, Box 839 
North Hollywood, CA 91603 

ORDERING INFORMATION: We accept checks. Mastercard, Visa. Money Orders. C.O.D. (C.O.D. under 
$50.00, add $2.00), and even cash. Please, no purchase orders. California residents add 6% sales tax. 
Add 15% outside North America. circle # 45 



CJILL TOLL-F1SE FOB ORDERS ONLY: 
(800) 824-7888. Operator 422 
CALIF: (800) 852-7777, Oper.422 
ALASKA/HAWAII: (800) 824-7919 
FOR TECHNICAL INFORMATION CALL: 
(213) 764-3131, or write to us. 
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137 FOR J=1 TO N:IF ASC(D$(J))>57 THEN 
D(J)=ASC(D$(J))-55:GOTO 139 

138 D(J)=VAL(D$(J)) 

139 NEXT J 

140 D=0:F=1:F0R J=1 TO N:D=D+D(J)*F:F=F 
*16:NEXT:RETURN 

141 ZC$=CHR$(ZG) 

142 IF ZN RETURN ELSE ZN=64:RETURN 

Z-Language listing for Model II 

CLEAR 500:CLS:G0T0 200 

1 PRINTTAB((80-LEN(ZT$))/2)ZT$:RETURN 

2 Z=1840+(80-LEN(ZB$))/2:PRINTSZ,ZB$;: 
RETURN 

3 GOSUB 142:PRINTTAB((80-ZN)/2)STRING$ 
(ZN,ZC$);:RETURN 

4 GOSUB 141: GOTO 3 

5 PRINTS 80*ZL,;sRETURN 

6 PRINTS 80*(ZP+1),;:F0RZ=1 TO 23-ZP:P 
RINTSTRING$(80„" "); :NEXTsPRINTS80*(ZP 
+1),;sRETURN 

7 FOR ZZ=1 TO 654*ZS:NEXT ZZsRETURN 

8 PRINTTAB(29)"T0 PROCEED HIT ANY KEY" 

9 Z$=INKEY$:IFZ$=""THEN 9 ELSE ZZ=VAL( 
Z$): RETURN 

10 ' -THE NINE (NEARLY) SIMILAR Z- 

SUBROUTINES ' 

11 Z0=80+80*ZL-LEN(ZT$)/2-40sPRINTS ZO 
,ZT$;s RETURN 

12 GOSUB 2s GOTO 5 

13 GOSUB 5 s GOTO 3 

14 GOSUB 5 s GOTO 4 

1 5 Z=80* (ZL-1 ) +ZT s PRINTSZ,; s RETURN 

16 PRINTS 0,; s FOR Z=0 TO ZEsPRINTSTRIN 
G$(8Q/' ");:NEXT ZsPRINTS 0,;:RETURN 

17 N=1:F0R Z=1 TO ZSsFOR ZZ=1 TO 650sN 
EXT ZZ:PRINTSZL*80+ZT,N "SECONDS"; sN=N 
+1SNEXT ZsRETURN 

18 PRINTS981/'T0 PROCEED HIT ANY KEY"; 
SGOTO 9 

19 Z0=ZL*80+ZT: PRINTS ZO,ZT$;:RETURN 

20 ' PRINTER Z-SUBROUTINES 8 

21 GOSUB 26sZ=(80-LEN(ZT$))/2sLPRINTTA 
B(Z)ZT$sRETURN 

22 GOSUB 26:Z=(40-LEN(ZT$))/2sLPRINTCH 
R$(3T)sLPRINTTAB(Z)ZT$sLPRINTCHR$(30): 
RETURN 

23 GOSUB 26: GOSUB 142:LPRINTTAB((80-ZN 
) /2)STRING$ (ZN,ZC$) : RETURN 

24 GOSUB 141: GOTO 23 

25 FOR Z=1 TO ZN:LPRINT" ":NEXT ZsRETU 
RN 

26 LPRINTCHR$(27)CHR$(66):RETURN 



30 ' BOX BORDER Z-SUBROUTINES 



i . SINGLE LINE BOR 

i DOUBLE LINE BOR 



31 GOTO 111 

DER — • 

32 GOTO 106 
DER B 

40 ' "SPECIAL MESSAGE" Z-SUBROUTI 

NES s 

41 GOTO 115 

« TEXT B0X „„„-i 

42 PRINTSPZ-1,STRING$(Z+2/ ! ");:RETURN 

i ERASE B0X — « 

43 Z=920-LEN(ZT$)/2:G0T0 120 ■ C 

ENTER-SCREEN FLICKER—— 8 

44 Z=80*(ZL-1)+ZT-1:G0T0 120 
—FLICKER 3 ZT ON ZL B 

50 ' MATHEMATICAL Z-SUBROUTINES— 

51 GOTO 124 '——CONVERT DECIMAL 
TO HEX,- - 1 

52 GOTO 136 s —CONVERT HEX B TO 

DECIMAL— 1 

100 "--——REFERRED ROUTINES BEGIN HER 

106 PRINTa81,CHR$(128)STRING$(76^CHR$( 
150))CHR$(129); 

107 PRINT3 (22,1 ),CHR$ (131 )STRING$(76,1 
50)CHR$(130); 

110 FOR N=2 TO 21:PRINTa(N,1),CHR$(148 
);sPRINTa(N,78),CHR$(148);:NEXTN 

111 PRINTaO / CHR$(128)STRING$(78,CHR$(1 
50))CHR$(129); 

112 FOR N=1 TO 22:PRINTCHR$(148);:PRIN 
Ta<R0W(Z),79>,CHR$CI48);:NEXT 

113 PRINTCHRS (131) STRINGS (78,CHR$ (150) 
)CHR$(130); 

114 RETURN 

115 Z=LEN(ZT$)sIF ZT=0 THEN PZ=80*ZL-Z 
/2-40 ELSE PZ=80*(ZL-1)+ZT-1 

116 TZ$=CHR$(128)+STRING$(Z+2,150)+CHR 
$(129) 

117 BZ$=CHR$(131)+STRING$(Z+2,150)+CHR 
$(130) 

118 PRINT3 PZ,ZT$; 

119 PRINTS PZ-82 # TZ$;:PRINT3 PZ-2,CHR$ 
(148);sPRINTa PZ+Z+1,CHR$(148); :PRINT3 

PZ+78,BZ$;s RETURN 

120 ZJ=LEN(ZT$):IF ZD=0 THEN ZD=20 

121 IF ZF=0 THEN ZF=3 

122 FOR D=1 TO ZDsPRINT3Z,ZT$; s FOR F=1 
TO ZF:NEXT F:PRINTSZ,STRING$(Z J," "); 

:FOR F=1 TO ZF:NEXT F:NEXT DsRETURN 

124 DEFINT H 

125 H1=D/4096:I=D-H1*4096:H2=I/256:I=I 
-H2*256:H3=I/16:H4=I-H3*16 
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You've Got 

TOTAL 




( specializing In TRS80 *) 



KOS© 



© 



TO YOUR COMPUTER HARDWARE & SOFTWARE 
NEEDS. CALL ROSE TODAY! 



I've cot 

• Disk Drives 

TA400 ( 40-T ) $289 

TA800( 80-T) $419 

TA400 Flippy $319 

TA800 Flippy $439 

All with silver case and 
power supply 

• CABLES 

2-Drlve $23.95 

4-Drlve $33.95 

Extender Cable $14.95 

• BARE DRIVES 

TA400B $259 

TA800B $389 

TA400B Flippy S289 

TA800B Flippy. $409 

• MODEL III DRIVE KIT 

includes dd disk controller, two- 
drive power supply, mounting 
towers, all connectors, cables & 
hardware and Instructions. 
DO It yourself & save $395 

• OPERATING SYSTEMS 

TRSDOS 2.3 Disk & Manual ...$17.95 

LDOS. $129.95 

NEWDOS/80 $129.95 

DOSPLUS 3.3, 3.3D $89.95 

• IRON 

Disk Drive Power Supply, 

Single $37 

Disk Drive Case (silver) 

and Base $19 

Memorex Diskettes ( bx of 10 ) 
- $25 

90 day warranty on drives. Add $5.00 freight per 
drive in cont. us. ups COD charge $1.40. There is 
also a 1 5 day free trial on ta drives. If not com- 
pletely satisfied I'll refund your money ( less ship- 
ping ). I'll take exception to Improper use or 
mishandling. 

• USERS CROUPS ~ ~~ ~~~~ 

When your club makes a group buy, 
be sure to call me for a price. 
Rose 

TRS80 * COMPUTERS 
•COMPUTERS 

26-1061 Mod III, LI, 4K $595 

26-1062 MOd III, Lll, 16K $850 

26-1063 MOd III, 32K/2 DISk/RS232 

$2150 

26-4002 Mod II, 64K $3300 

26-3001 color Computer, 4K. . . $330 
26-3002 Color Computer, 16K. . $510 
26-3501 Pocket Computer $212 

• DISK EXPANSION, MOD II 

26-4160 One Disk $977 

26-4162 Three Disk $1998 

LOBO drive units also available. 



• PERIPHERALS 

26-1140 0K Exp. interface $255 

26-1141 16K Exp. interface $305 

26-1142 32K Exp. interface $355 

26-1172 D.C. Modem II $135 

26-1206 ctr-80 Recorder $51 

26-3503 P.c. interface $42 

• PRINTERS 

26-1165 Line Printer v $1581 

26-1 1 66 Line Printer VI $986 

26-1158 Daisy Wheel fl $1694* 

* LIMITED AVAILABILITY 



ROSe'S T-SHIRTS 

With any order of $1,000.00 or 
more, ill send you one of my 

"MINI-FLOPPY" T-SllirtS! 



The complete line of Radio Shack 
products Is available through ta 
with standard RS limited warran- 
ty. Call me for price and delivery. 
Just cause you don't see it, don't 
mean we ain't got It. 
ROSE 



• SOFTWARE 

we have Adventure, Big 5, Med 
Systems, sbsc, Snapp, Radio Shack 
and much more. Call or write. Do It! 



ROSE'S 

OF THE 
ONTH 



* PRINTERS* 

EPSON MX70. .. $369.00 

EPSON MX80. .. $475.00 

STARWRITER 45CPS 
DAISYWHEEL. $1795.00 

Parallel Cable for TRS80 
for any of the 

above $29.95 

you can't live 

without a bunch 

of these! 



REALT 



T-Timer© .... $89.9* 

Clock continues to run no matter 
what mode you are In or when 
system Is down with battery back- 
up*. Not affected by disk I/O. Plugs 
Into screen printer port-has 
extender. 

Sec, mln/hr; day of week; 
Date, mo, yr. 
Mod. I only. 

ORDER NOW! 

TOLL FREE 
800-527-3582 

write or call Rose toll free at 
l-800-527-3582[Texas residents call 
214-234-1770). Please use the toll 
free lines for orders and literature 
requests only. Technical help or ser- 
vice use the Texas line. You can pay 
by VISA or MASTERCARD, you can 
send check or money order (allow a 
couple of weeks for personal checks 
to clear) or order COD (we ship COD'S 
cash, certified check or money 
order only). Rose will take American 
money in just about any form. Add 
freight (UPS where possible) on all 
orders under $1000. if you buy 
$1000 or more Rose eats the freight! 
Texas residents cough up 5% sales 
tax. Allow 2-4 weeks for delivery. 
Order today - 1 need the money! 

TOTAL ACCESS© 

P.O. BOX 1002 
RSCHARDSON, TX 75080 

214-214-1770 

* TRS80 & Radio Shack are trademarks of 

Tandy Corp. 

© copyright 1981 TOTAL ACCESS 

TOACC/23 



BASIC technique 



126 IF H1>9 H1=H1+55 ELSE Hl=Hl+48 

127 IF H2>9 H2=H2+55 ELSE H2=H2+48 

128 IF H3>9 H3=H3+55 ELSE H3=H3+48 

129 IF H4>9 H4=H4+55 ELSE H4=H4+48 

132 H$=CHR$(H1)+CHR$(H2)+CHR$(H3)+CHR$ 
(H4):IF LEFTS (H$,2) ="00" H$=RIGHT$(H$, 
2) 

133 IF LEFTS (H$,1)="0" H$=RIGHT$(H$ / 3) 

134 RETURN 

136 N=LEN(H$):M=N+1:FOR J=1 TO N:D$(J) 
=MID$(H$,(M-J),1):NEXT 

137 FOR J=1 TO N:IF ASC(D$(J))>57 THEN 
D(J)=ASC(D$(J))-55:GOTO 139 

138 D(J)=VAL(D$(J)) 

139 NEXT J 

140 D=0:F=1:F0R J=1 TO N:D=D+D(J)*F:F= 
F*16:NEXT:RETURN 

141 ZC$=CHR$(ZG) 

142 IF ZN THEN RETURN ELSE ZN=80:RETUR 
N 



Z-Language listing for Color computer 

CLEAR 500: CLS: GOTO 200 

1 PRINTTAB((32-LEN(ZT$))/2)ZT$:R 
ETURN 

2 Z=480+(32-LEN(ZB$))/2:PRINTaZ, 
ZB$;: RETURN 

3 GOSUB 142:PRINTTAB((32-ZN)/2)S 
TRING$(ZN„ZC$);:RETURN 

4 GOSUB 141: GOTO 3 

5 PRINTS 32*ZL,;: RETURN 

6 PRINTa32*(ZP+1),;:F0RZ=1 TO 15 
-ZP:PRINTSTRING$(32/' ");:NEXT:P 
RINT332* (ZP+1 ) ,; : RETURN 

7 FOR ZZ=1 TO 439*ZS:NEXT ZZ:RET 
URN 

8 PRINTTAB(5)"T0 PROCEED HIT ANY 
KEY" 

9 Z$=INKEY$:IFZ$= m 'THEN 9 ELSE Z 
Z=VAL(Z$): RETURN 

10 * THE NINE (NEARLY) SIMI 

LAR Z-SUBROUTINES ' 

11 Z0=INT(32+32*ZL-LEN(ZT$)/2-16 
):PRINT3 ZO,ZT$;:RETURN 

12 GOSUB 2 :GOTO 5 

13 GOSUB 5 -.GOTO 3 

14 GOSUB 5: GOTO 4 

15 Z=32*(ZL-1)+ZT:PRINT3Z,;:RETU 
RN 

16 PRINTS 0,;:FOR Z=0 TO ZE:PRIN 
TSTRING$(32„" ");:NEXT Z:PRINT3 
0,;:RETURN 



17 N=1:F0R Z=1 TO ZS:FOR ZZ=1 TO 
420:NEXT ZZ:PRINT3ZL*32+ZT,N "S 

EC0NDS";:N=N+1:NEXT Z:RETURN 

18 PRINTa485/'TQ PROCEED HIT ANY 
KEY";:GOTO 9 

19 Z0=ZL*32+ZT: PRINTS ZO,ZT$;:RE 
TURN 

20 ' PRINTER Z-SUBROUTINES- 



21 GOSUB 26:Z=(64-LEN(ZT$))/2:LP 
RINTTAB(Z)ZT$:RETURN 

22 GOSUB 26:Z=(32-LEN(ZT$))/2:LP 
RINTCHR$(31):LPRINTTAB(Z)ZT$:LPR 
INTCHRS (30): RETURN 

23 GOSUB 26: GOSUB 142:LPRINTTAB( 
(64-ZN)/2)STRING$(ZN,ZC$): RETURN 

24 GOSUB 141: GOTO 23 

25 FOR Z=1 TO ZN:LPRINT" ":NEXT 
Z: RETURN 

26 LPRINTCHRS (27) CHRS (66): RETURN 

30 8 BOX BORDER Z-SUBROUTIN 

ES B 

31 GOTO 111 8 SINGLE LI 

NE BORDER 8 

32 GOSUB 31 : GOTO 106 ' 

—DOUBLE LINE BORDER ' 

40 ■ "SPECIAL MESSAGE" Z-SU 

BROUTINES ' 

41 GOTO 115 

'——TEXT BOX— 1 

42 PRINTaPZ-1,STRING$(Z+2," ");: 
RETURN ■ ERASE BOX B 

43 Z=240»LEN(ZT$)/2:G0T0 120 

i CENTER-SCREEN FLICKER—— 8 

44 Z=32*(ZL-1)+ZT-1:G0T0 120 

8 FLICKER a ZT ON ZL -" 

50 i MATHEMATICAL Z-SUBROUT 

INES- 8 

51 GOTO 124 8 CONVERT D 

ECIMAL TO HEX. 8 

52 GOTO 136 8 CONVERT H 

EX. TO DECIMAL ■ 8 

100 8 REFERRED ROUTINES BEG 

IN HERE 8 

106 TZ$=CHR$(145)+STRING$(28,147 
)+CHR$(146) 

107 MZ$=CHR$(149)+STRING$(28 / 32) 
+CHR$(154) 

108 BZ$=CHR$(148)+STRING$(28,156 
)+CHR$(152) 

109 PRINT333, TZ$; 

110 FOR ZL=3 TO 14:ZT=1 :ZT$=MZ$: 
G0SUB15:PRINT MZ$; :NEXT:ZL=15:G0 
SUB15:PRINT BZ$;:RETURN 
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111 PRINT30,CHR$(145);STRING$(30 
,147);CHR$(146); 

112 FOR N=1 TO 14sPRINTCHR$(149) 
;TAB(31);CHR$(154);:NEXT 

113 PRINTCHR$(148);STRING$(30,15 
6); 

114 P0KE1535,152:RETURN 

115 Z=LEN(ZT$):IF ZT=0 THEN PZ=3 
2*ZL-Z/2-16 ELSE PZ=32*(ZL-1)+ZT 
-1 

116 TZ$=CHR$(128)+STRING$(Z+2„12 
8)+CHR$(128) 

117 BZ$=STRING$(Z+4„128) 

118 PRINTS PZ # ZT$; 

119 PRINTS PZ-34,TZ$; :PRINT3 PZ- 
2^CHR$(128);sPRINT3 PZ+Z+1„CHR$( 
128);sPRINT3 PZ+3Q^BZ$js RETURN 

120 ZJ=LEN(ZT$):IF ZD=0 THEN ZD= 
20 

121 IF ZF=0 THEN ZF=3 

122 FOR D=1 TO ZD;PRINT9Z^ZT$; : F 
OR F=1 TO ZFsNEXT F:PRINT3Z,STRI 
NG$(ZJ # " M );:FOR F=1 TO ZF-.NEXT 
FsNEXT Ds RETURN 

124 ' 

125 H1=INT(D/4096);I=D-H1*4096:H 
2=INT(I/256);I=I-H2*256:H3=INT(I 
/16)sH4=I-H3*16 

126 PRINT H1,H2„H3„H4:IF H1>9 TH 
EN Hl=Hl+55 ELSE H1=H1+48 

127 IF H2>9 THEN H2=H2+55 ELSE H 
2=H2+48 

128 IF H3>9 THEN H3=H3+55 ELSE H 
3=H3+48 

129 IF H4>9 THEN H4=H4+55 ELSE H 
4=H4+48 

132 H$=CHR$(H1)+CHR$(H2)+CHR$(H3 
)+CHR$(H4)sIF LEFT$(H$,2)="00" T 
HEN H$=RIGHT$(H$„2) 

133 IF LEFTS (H$„1)="0" THEN H$=R 
IGHT$(H$,3) 

134 RETURN 

136 N=LEN(H$)sM=N+1sF0R J=1 TO N 
:D$(J)=MID$(H$,(|V|-J),1):NEXT 

137 FOR J=1 TO NsIF ASC(D$(J))>5 
7 THEN D(J)=ASC(D$(J))-55:GOTO 1 
39 

138 D(J)=VAL(D$(J)) 

139 NEXT J 

140 D=0;F=1;F0R J=1 TO N:0=D+D(J 
)*F:F=F*16;NEXT;RETURN 

141 ZC$=CHR$(ZG) 

142 IF ZN THEN RETURN ELSE ZN=32 
s RETURN H 




BASIC is ™ not nearly as slow 
as most programmers think. 

BASIC Faster and Better shows you how to 
supercharge your BASIC with 300 pages of 
fast, functions and 
subroutines. 

You won't find any trivial poorly designed 
'check- book balancing' programs in this 
book- it's packed with useful programs. 

Tutorial for the beginner, instructive for 
the advanced, and invaluable for the pro- 
fessional, this book doesn't just talk. . . it 
shows how! All routines are also available on 
disk, so that you can save hours of 
keyboarding and debugging. 

The # 1 disk BFBDEM contains all the 
demonstration programs, and # 2 BFBLIB has 
all the library functions. 

BASIC Faster & Better is $29.95, and the two 
program disks are $19.95 each. 
Get the book and/ or disks from your local 
IJG dealer and B. Dalton bookstores. 




C - 



Circle # 47 



1260 W. Foothill Blvd. 
Upland, California 9 1786 

(714) 946-5805 
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For Model I and III with tape and TBUG or DEBUG 

Glenn W. Collura, Strcetsboro, OH 



Have you ever wondered how 
your TRS-80 knows where to go 
when you type /ENTER after 
loading a system format tape? Have 
you ever needed the execution point 
of a machine language program to 
make a backup copy but did not 
have a monitor available that would 
give you this information? If so, 
then read on and I'll tell you about 
two very easy methods of obtaining 
this information. 

Method one 
Let's start by loading TBUG into 
the computer from tape. I chose 
TBUG because most TRS-80 users 
own a copy of it even if they have 
purchased other monitor programs. 
All references will be made 
assuming TBUG is in memory. If 
you don't have a copy, another 
comparable monitor program will 
do, although some commands and 
addresses will differ slightly. If you 
don't have a monitor program at all, 
read on because a little later I'll 
describe a method which can be 
used without a monitor program at 
all. When TBUG has finished 
loading, type /ENTER. How did 
your TRS-80 know where to start 
executing TBUG? Here's how. 

Using TBUG's M command 
(display memory), look at locations 
40DF and 40E0. Location 40DF will 
contain AO. Location 40E0 will 
contain 43. These two locations 
store the entry point for system 
format tapes. Remember that the 
TRS-80 stores addresses with the 
least significant bit (LSB) first and 
the most significant bit (MSB) last. 



By reading out these two locations 
we can see that the entry point or 
execution point for TBUG is 43A0. 
To prove that this is correct, do the 
following. Using TBUG's J (jump) 
command, type J 1A19. This is a 
jump back to BASIC. You should see 
the READY prompt. From BASIC 
type SYSTEM (ENTER). At the "*?" 
prompt type / 1731 2. How about 
that!, right back to TBUG. This 
verifies the address we read at 
locations 40DF and 40E0. 
Remember that when we are in 
BASIC we must use decimal 
addresses. Address 43A0 hex 
converts to 17312 in decimal. If you 
are using a monitor other than 
TBUG you will have to convert the 
address you read at 40DF from hex 
to decimal. The result should be the 
same. 

Why we need entry points 

Why do we need to know the 
execution point? As you can see, we 
just returned to BASIC and then 
went back to our monitor without 
having to reload it. This can be very 
useful when using a renumbering 
utility or other machine language 
routine. If you wanted to renumber 
several BASIC programs you would 
only have to load the renumber 
program once. After each successive 
BASIC program was loaded you 
could simply jump (/ entry point) 
back to the renumber utility as often 
as needed. Another advantage is the 
capability of having two or more 
machine language programs in 
memory at the same time, providing 



they do not overlay each other. I do 
this quite often when I'm examining 
somebody's code. Usually I load a 
monitor, a disassembler and the 
program I wish to examine into 
memory together. Without knowing 
the entry points of the three 
programs, it would not be possible to 
jump from one program to the other. 
Yet another advantage is the ability 
to make backup copies of machine 
language programs. Most monitors 
require start address, end address, 
execution point and filename to 
write a section of memory or a 
program to tape. The list of 
advantages goes on and on. 

Now let's get back to our 
keyboards and find the execution 
point for a machine language 
program. 

Method one continued 

If you still have TBUG in your 
machine, do a jump back to BASIC 
again. If not, load TBUG and return 
to BASIC. Choose a machine 
language program for which you 
need to find the entry point. I will be 
using Super Nova from Big 5 
Software for this demonstration. 
Any machine language program 
you happen to have handy will do. 
Just make sure that your program 
will load above TBUG. From BASIC 
type SYSTEM (ENTER). At the *? 
prompt type NOVA (ENTER), or the 
filename of the program that you 
are using. When the tape has 
finished loading do not type 
/ENTER. Instead, type / 1731 2 and 
ENTER. This, is our entry point 
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Complete Business 
System includes: 
48K TRS-80™ Model 
III, Disk III™ 2 Drive 
System, TRSDOS 
and Manual. 



Model III Disks 





ii 



DISK III single drive assembly includes: one 40track 
5'A" double density drive, power supply, controller, 
mounting hardware, and applicable cables. 



DISK III Single 

drive assy $599.00 
DISK III Tw© 

drive assy 864.00 
DISK III Assy 

w/out drives 435.00 
TRSDOS™ & 

Manual 21.90 

External drives 

(3 & 4) 299.00 



IEDIATE DELIVERY - COMPARE AND SAWE 

WINCHESTER HARD DISK MODEL III 

Integral Winchester d^m^ 

Business system includes: ^^ 

48K Model III, LDOS *JJfc 

Disk III™, 6.3 MEG 6.3 MEGABYTE WINCHESTER 

HARD DISK SYSTEM. HARD DISK SUBSYSTEM 

With chassis, PS, LDOS™. 

9.5 MEG $3395.00 





MOD IBB Options: 

9.5 MEG HD (internal) 
80tk1 side floppy 
80 tk2side floppy 



Winchester Subsystem Options: 

add $500.00 2x6.3 Meg drives 4495.00 

add $120.00 2x9.5 Meg drives 5495 00 

add $240.00 



Peripherals 

Epson MX-80 
Epson MX-80 FT 
Epson MX-1 00 
Centronics 739 
Starwriter25(P) 
RS-232 
Lexicon modem 



500.00 
615.00 
800.00 
700.00 
1395.00 
95.00 
105.00 



MODEL 1/38! 
EXTERNAL DRIVE 
W/ PS & ENC 

Fully Compatible 
120 day warranty 
Easy installation 
80 tk or 2 sided 
80tk&2sided 



$275 



$419.00 
549.00 



IF YOU DON'T SEE IT ADVERTISED CALL US AND ASK FOR IT. 

PUBLISHED PRICES REFLECT CASH DISCOUNT 

ALL PRICES ARE SUBJECT TO CHANGE WITHOUT NOTICE. 

TRS-80 and TRSDOS are trademarks of Tandy Corp. 

DISK III is a trademark of VR Data Corp. Dealership available 

Phone toll free 800-345-8102 

• in PA 215-461-5300 Cable address "VRDATA" • TELEX 



OTHER PRODUCTS 

SUPERBRAIN 64K 
PARALLEL PORT — 

SUPERBRAIN 
DISK & MYSTERIES 
BASIC & MYSTERIES 
NEC Ribbons (min. 6) 
Epson Ribbons 
NEW— 
LDOS Operating 

System 
COMING SOON!! 
Internal MODEM for MOD III 



2990.00 

99.95 
22.50 
29.95 
5.95 
12.50 



149.00 



■VZSjSteda. 



VR Data Corporation 

777 Henderson Boulevard • Folcroft, PA 19032 
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back into TBUG. If you are not 
using TBUG use the appropriate 
decimal address for your monitor. 
Once you are back into TBUG, use 
the M command to examine 
locations 40DF and 40E0. For Super 
Nova you should read a 93 at 
location 40DF and a 63 at location 
40E0. Our execution point would be 
6393 hex. Again, if you are using a 
different program the address will 
be different. 

The easy way 
As promised, here is a method 
that can be used without loading a 
monitor program. It is also an easy 
way to convert the entry point from 
hex to decimal. I will use the Super 
Nova program again for this 
demonstration. 

Load your system tape into 
memory as you normally would. 
After the tape has loaded hit the 
reset button Do not type /ENTER. 
Hitting the reset button will bring us 
back to BASIC. From the command 
mode, type PRINT PEEK (16607+ 
PEEK(16608)) * 256 and ENTER. 
With my program the result was 
25491. This converts to 6393 hex, 



which is the entry point for the 
program I used. To verify that this is 
correct, type SYSTEM (ENTER). At 
the *? prompt type "/" followed by 
the decimal number that was 
returned by the PEEK statements. 
Your program should start 
executing just as though you typed 
"/ ENTER" after it loaded. 
Conclusion 

The two methods described here 
should be a help in locating entry 
points for your machine language 
programs. As most of you know, 
there are several monitors available 
that will read a system tape and give 
you the execution point. However, if 
you don't already own one of these 
programs and you don't want to 
invest in another monitor, the 
methods described here should work 
just as well. They will also give you 
some insight into how your TRS-80 
works. 

This method of finding execution 
points is not entirely foolproof. 
There are some programs on the 
market which execute automatical- 
ly. This means you don't type 
"/ENTER" after they load. They 



simply start running as soon as they 
are finished loading. Needless to 
say, this method will not work on 
these tapes. However, most of the 
monitor programs which read 
system tapes also will not return the 
correct entry point for those 
programs. Aside from these few 
exceptions, you should now be able 
to find the execution point for most 
of your machine language 
programs. 

TBUG has been replaced with a 
new utility from Radio Shack called 
DEBUG; stock #26-2000. The TBUG 
commands and memory addresses 
are different in DEBUG. 

The "D" command is used in place 
of the "M" command. Location 
40DF will contain 09; 40E0 will 
contain 49. The entry point for 
DEBUG is then 4909 hex or 18697 in 
decimal. Therefore, use /18697 in 
answer to the *? prompt to return to 
DEBUG as described in the above 
t@xt 

DEBUG is for both the Model I 
and III and the above memory 
locations and figures apply to both 
machines. M 
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EDfIS 3. 



EDAS is a sophisticated Editor 
and Assembler for TRS-80 i & III 
« All text may be input in upper or 

lower case. 
» Assemble directly from one or 

more disk files via *GET. 
« Assemble to disk or memory 
o Binary, octal, decimal, hex, and 
string constants; Multiple con- 
stants may be input on a single 
line. 
. CMDFILE utility included. 

• Conditional assembly support. 
. Cross-Reference utility. 

. DOS functions DIR, FREE, KILL, 

and LIST are supported. 
. 14-character labels including 

special chars. "@", "$",".","?". 
. Editor includes block move, 

global change, renumber, find, 
o EDTASM & M-80 source files 

can be read or written. 

• Expression evaluator supports 
+, -, *, /, MOD plus logical AND, 
OR, and XOR. 

. Paged & titled listings with page 

numbers and date/time. 
. PAGE, TITLE, SUBTTL, SPACE, 

& COM pseudo-ops supported, 
o Set memory size, page prompt 

JCL execution, Abort option. 
. EDAS is supported with TRSDOS 

compatible DOSs(LDOS, VTOS). 
. Price is $79.00 + $4.00. S&H. 
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LDOS, Version 5.1 is the Ultimate in Operating 
Systems for the TRS-80 Models I and III. 
MISOSYS is your East Coast Headquarters 
for LDOS, the documented system! Version 
5.1 is priced at $169.00 + $5.00 S&H per 
system. Deduct $50 if ordering both. 

LDQS 5.L 
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SASOSItAI SASOSIIAI SASOSIIAI SASOSIIAI SASOSIIAI 

DSMBLR 

Complement your assembly language tools with this 
Z-80 disassembler which produces screen, printer, 
cassette, or disk file output. A two pass process 
provides SYM BOLS for 1 6-bit address and 8-bit rel- 
ative references. EQUates& ORG are generated. 
Read SYSTEM programs & display load address 
range. $20 (DSMBLR I for non-disk use is $15). 

EDAS, CMDFILE, DSMBLR Specify Mod I or III. Add 
$1 S&H+$.50 per program. VA residents add 4%. 



MISOSYS - Dept. UP3 

5904 Edgehill Drive, 

Alexandria, Virginia 22303 

703-960-2998 MicroNET 70140,310 

Dealers Inquiry Invited 

Circle # 49 





DISKMQD 

Turn your Editor Assembler into 
a disk package. This 32 K patch 
modifies EDTASM for DOS op- 
eration. Features? Add full disk 
I/O, block move, global change, 
printer pagination, sorted sym- 
bol table, print memory utiliza- 
tion, enhance DEFM expansion, 
protect memory, and recover 
after BOOT. From within the 
EDTASM you will have DIR, 
KILL, & FREE. Upgrade your 
EDTASM! $20. 

THE B00KS 

THE BOOKs must be a part of 
your tools. Volume I gives you 
access to all math operations in 
your Level II ROM. A symbol 
table of the entire machine not- 
ing over 500 addresses is includ- 
ed. Volume II tells you every- 
thing you wanted to know about 
the level II I/O— printer, key- 
board, video, and cassette rou- 
tines are fully explained. Each 
volume has a fully commented 
listing of all the routines dis- 
cussed. THE BOOKS will save 
you hours of assembler pro- 
gramming. Each volume is priced 
at $ 1 4.95 or buy both for $24.95. 
Add $1.50 S&H per book. 
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BUILD it yourself 



in BASIC! 



For Model I disk with TRSDOS 

Dan Connors, Harvey, LA 





This article describes a BASIC 
utility which will allow you to 
operate your TRS-80 disk system as 
a turn-key system. The concept is 
similar to the Model III disk 
command BUILD which creates a 
program which takes over the 
computer at DOS READY and loads 
utilities, BASIC, sets file and 
memory size and your first BASIC 
program. 



The BUILD/BAS program 
creates a machine language file 

(identical to one which could have 
been made by a disk-based editor/ 
assembler. After the program writes 
the file on diskette, you can call it 
with the AUTO command. No 
knowledge of machine of machine 
language is needed. 

Unlike the Model III BUILD 
command, the file which this 
program creates will reside in 
unprotected memory. Since the 
program will be switched out of 
control of your keyboard eventually, 
this space is made free for use by 
your BASIC programs. 

Lines 100 to 320 assemble a string 
of characters which are T in fact, a 
machine language program. The 
assembler listing is shown in the 
remarks. The program simply 
intercepts the keyboard scan, 
returns one character each time the 
scan is called until the end of file is 
found, then restores the original 
keyboard scan. At this point, the 
program is done and the space it 
used is free. 



5 ' 

15 

25 

35 

45 

55 

65 

75 

as 

100 
105 
110 
115 




Lines 330-410 take your input and 
add it to the file. Lines 420 to 450 
complete the assembly of the routine 
which will be written on the 
diskette. Lines 460 to 500 write the 
disk file. The remainder of the 
program is just instructions. 

Like all programs, this one has 
limits. The file it creates will be 
loaded into memory from 6F00H to a 
maximum of 6FFFH (284 1 6 to 28671 
in decimal). This space is not 
protected. This area was chosen 
because it is a very unusual place to 
put a machine language routine, so 
it probably won't conflict with any 
other utilities you might have. It 
does occupy space normally used by 
BASIC programs, however, it is 
disabled before the BASIC program 
is loaded. 

You might experience a lockup or 
reboot should this module load a 
utility which overwrites this area. 
Long routines are suspect. For 
example, BACKUP or COPY may 
use all of memory. 

You also cannot use it to run 
another utility which interrupts the 
keyboard scan. Programs such as 
KBFIX and most macros interrupt 
this scan. If you want to load one of 
these programs, you may, but you 
cannot activate it until the BUILD 
module has been deactivated. 

To do this, you need to load the 
utility using: 

* 1,0 AD" filename /CMD" 
then write a short BASIC program 
which changes the return to DOS to 

simple return. You can find this 



instruction by using DISKDUMP/ 
BAS and looking for the sequence 
that goes: C3 2D 40 (JP 402DH). 
Your BASIC program simply needs 
to poke C9H (201 D) into the location 
the C3H is in, then use a DEFUSR 
statement to mark the beginning of 
the utility, and a USR call 
(A=USR«B)) to activate it. Follow 
this with a CLEAR statement, 
which might be needed to eliminate 
an erroneous error message, and 
RUN" whatever" to execute the 
BASIC program you really wanted 
to have executed in the first place. 
You may need the following 
information to determine where the 
utility resides in memory: The third 
and fourth bytes are the starting 
address, in hexadecimal, of where 
the program will be loaded into 
memory. The order is reversed. The 
BUILD module, for example, loads 
at 6F00H, and the third and fourth 
bytes of the disk file are 00 6F. The 
first byte of the program goes here, 
the next in the following byte, etc. 
Your computer will convert this to 
decimal very quickly with the 
following: PRINT&Hnnnn, where 
nnnn are the four hexadecimal 
digits. The end of the program will 
be flagged with two bytes: 02 02. The 
two bytes following are the start 
location for this utility. Reverse the 
order and you have the correct 
address for your DEFUSR 
statement. The BUILD module, for 
example, could be pointed to with: 
DEFUSR0=&H6F00. A=USR0(B) 
will activate the utility. ■ 



a^ m J 



I 



DO NOT TYPE IN ANY LINE NUMBERS ENDING IN *5 I (REMARKS) 
PROGRAM BUILD/BAS, CREATES MACHINE LANGUAGE DISK FILE 
WHICH CAN BE USED TO EXTEND THE AUTO COMMAND BY 
ALLOWING THE LOADING OF SEVERAL PROGRAMS. 
THIS PROGRAM USES MEMORY LOCATIONS 6F00H TO 6FFFH 
(28416 TO 28671 DECIMAL) TEMPORARILY. IT IS DUMPED 
BEFORE ANY BASIC PROGRAM IS RUN. 

COPYRIGHTED MAY 15, 1981 BY DAN CONNORS, 2320 HAMPTON DR 
HARVEY, LA 70058 

CLEAR500:DEFINTB-P:DEFSTRQ-Z:REM BUILD 
1 INITIALIZE 

CLS:INPUT"WHAT DO YOU WANT TO CALL THE COMPLETED PR0GRAM M ;X 
' INPUT FILENAME OF COMMAND FILE 
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120 

125 

130 

135 

140 

145 

150 

155 

160 

165 

170 

175 

180 

185 

190 

195 

200 

205 

210 

215 

220 

225 

230 

235 

240 

245 

250 

255 

260 

265 

270 

275 

280 

285 

290 

295 

300 

305 

310 

315 

320 

325 

330 

335 

340 

345 

350 

355 

360 

365 

370 

375 



IFRIGHT$(X,4)<> , 7CMD ,, THENX=X+ , 7CMD M 

' MAKE SURE IT ENDS IN /CMD 

CLS;Y=CHR$(1)+CHR$(0) 

8 FIRST BYTE INDICATES MACHINE CODE, 2ND IS BYTE COUNT 

Y=Y+CHR$(00)+CHR$(SH6F) 
i 



Y=Y+CHR$(&H2A 
8 6F00 2A1640 
Y=Y+CHR$(8H22 
' 6F03 22106F 
Y=Y+CHR$(&H21 
' 6F06 210F6F 
Y=Y+CHR$(&H22) 
8 6F09 221640 
Y=Y+CHR$(8HC3 
1 650C C32D40 
Y=Y+CHR$(SHCD 
B 6F0F CD0000 
Y=Y+CHR$(SH2A 
8 6512 2A266F 
Y=Y+CHR$(8H7E) 
8 6F15 7E 
Y=Y+CHR$(&H23 
8 6F16 23 
Y=Y+CHR$(8H22 
"6F17 22266F 
Y=Y+CHR$(8HFE 
B 6F1A FEFF 
Y=Y+CHR$(&HCO 
8 6F1C CO 
Y=Y+CHR$(&H2A 
B 6F1D 2A106F 
Y=Y+CHR$(8H22 
B 6F20 221640 



ORG 6F00H 
+CHR$(&H16)+CHR$(8H40) 

LD HL,(4016H) ;KEYBOARD VECTOR 

+CHR$(&H10)+CHR$(&H6F) 

LD (6F10H),HL ;POKE INTO CALL $-$ 

+CHR$ (8H0F) +CHR$ (SH6F) 

LD HL, 6F0FH ;BEGINNING OF NEW SCAN 

+CHR$(&H16)+CHR$(8H40) 

LD (4016H),HL ;POKE INTO KEYBD VECTOR 

+CHR$ (&H2D) +CHR$ (8H40) 

JP 402DH ;G0 TO DOS READY 

+CHR$(0)+CHR$(0) 

CALL $-$ ;CALL OLD SCAN 

+CHR$(&H26)+CHR$(&H6F) 
LD HL,(6F26H) ;GET POINTER 



LD 



A # (HL) 



;PUT CHAR IN A 



INC HL 



;ADD 1 TO POINTER 



+CHR$(&H26)+CHR$(8H6F) 
LD (6F26H),HL 

+CHR$(8HFF) 
CP OFFH 



;STORE POINTER 
;DOES A= FFH? 
;IF NOT, RET CHAR 



;PUT A CR IN A 

;RETURN (PROG DISABLED) 



RET NZ 
+CHR$(8H10)+CHR$(8H6F) 

LD HL,(6F10H) ;IF SO GET OLD SCAN 
+CHR$(SH16)+CHR$(&H40) 
LD (4016H),HL ;& PUT IT BACK 

Y=Y+CHR$(8H3E)+CHR$(8H0D) 

8 6F23 3E0D LD A,13 

Y=Y-s-CHR$(8HC9: 

8 6F25 C9 RET 

Y=Y+CHR$ (&H28) +CHR$ (&H6F) 

8 6F26 286F DEFW 6F28h ^POINTING TO NEXT BYTE 

IFLEN(Y)O44THENPRINT u PR0GRAM NOT TYPED IN CORRECTLY":END 

8 MACHINE LANGUAGE PROGRAMS ARE NOT EASY TO GET ALONG WITH 

J=1 

8 J IS NUMBER OF COMMAND LINES 

PRINV'TYPE IN WHAT YOU NORMALLY DO TO BRING SYSTEM UP" 

1 INSTRUCTIONS 

PRINT"TYPE IN <END> TO END" 

8 INSTRUCTIONS 

PRINT"COMMAND :";J 

8 INPUT LOOP STARTS 

LINEINPUTZ;IFZ= !, END"THEN410 

1 INPUT COMMAND, CHECK FOR END 
380 K=INSTR (Z, "RUN") s I FKO0THEN400 

385 8 PROGRAM MAY NOT BE RUNNING WITH A BASIC PROGRAM RUNNING 
390 Y=Y+Z+CHR$(13)+CHR$(0):J=J+1;GOT0360 

395 8 APPENDS COMMAND TO Y STRING WHICH IS THE MACH. LANG. PROG 
400 Y=Y+ZsGOT0420 



92 80-U.S. Journal, January, 1982 



Disk application 



;FF SIGNALS END 

;MARKS END FOR DOS 

;TELLS DOS TO JUMP TO 6F00 



405 'PROGRAM WILL TERM BUILD, NOTE CR & NOT ADDED 

410 Y=LEFT$(Y,LEN(Y)-2) 

415 'REMOVE CR AND FROM LAST LINE 

420 Y=Y+CHR$(8HFF) 

425 'XXXX FF DEFB OFFH 

430 Y=Y+CHR$(2)+CHR$(2) 

435 'XXXX 0202 

440 Y=Y+CHR$(0)+CHR$(8H6F) 

445 'XXXX 006 F 

450 J=LEN(Y)-6:MID$(Y,2,1)=CHR$(J) 

455 ' J IS PROGRAM LENGTH, MAKE SECOND CHARACTER = J 

460 0PEN n R'V1,X 

465 'OPEN FILE WHICH YOU NAMED 

470 FIELD1,255ASW 

475 'WHOLE THING IS ONE PIECE 

480 LSETW=Y 

485 'PUT PROGRAM IN BUFFER 

490 PUT1/I 

495 'WRITE IT ON DISK 

500 CLOSE 

505 'PROGRAM IS NOW ON DISK 

510 CLS:PRINT"RETURNING YOU TO DOS READY." 

515 ' SET UP AUTO COMMAND 

520 PRINTsPRINVTYPE IN THE FOLLOWING EXACTLY:" 

525 ' INSTRUCTIONS 

530 PRINT:PRINT"AUTO ";LEFT$(X,LEN(X)-4) 

535 ' INSTRUCTIONS 

540 PRINT: PRINT"THEN REBOOT. PROGRAM TERMINATED": CMD"S" 

545 ' RETURN TO DOS READY ® 



QUEST 



QUEST - A NEW IDEA IN ADVEN- 
TURE GAMES! Different from all the 
others. Quest is played on a computer 
generated map of Alesia. Your job is to 
gather men and supplies by combat, bargain- 
ing, exploration of ruins and temples and 
outright banditry. When your force is strong 
enough, you attack the Citadel of Moorlock 
in a life or death battle to the finish. Play- 
able in 2 to 5 hours, this one is different 
every time. 
16K COLOR-80 OR TRS-80 ONLY. $14.95 



ADVENTURES!!! 

For TRS-80 and COLOR-80. These Ad- 
ventures are written in BASIC, are full fea- 
tured, fast action, full plotted adventures 
that take 30-50 hours to play. (Adventures 
are interactive fantasies. It's like reading a 
book except that you are the main char- 
acter as you give the computer commands 
like "Look in the Coffin" and "Light the 
torch.") 

Adventures require 16K. They sell for 
$14.95 each. 
ESCAPE FROM MARS (by Rodger Olsen) 

This ADVENTURE takes place on the 
RED PLANET. You'll have to explore a 
Martian city and deal with possibly hostile 
aliens to survive this one. A good first 
adventure. 

PYRAMID (by Rodger Olsen) 

This is our most challenging ADVEN- 
TURE. It is a treasure hunt in a pyramid 
full of problems. Exciting and tough! 

TREK ADVENTURE (by Bob Retelle) 

This one takes place aboard a familiar 
starship. The crew has left for good reasons - 
but they forgot to take you, and now you 
are in deep trouble. 

DEATH SHIP (by Rodger Olsen) 

Our first and original ADVENTURE, 
this one takes place aboard a cruise ship - 
but it ain't the Love Boat. 

VAMPIRE CASTLE (by Mike Bassman) 
This is a contest between you and old 
Drac - and it's getting a little dark outside. 

$i 4.95 each . ^\ Please specify system on all orders 

This is only a partial listing of what we have to offer. Send for free catalog to* 

™~ AARDVARK-80 

TRS-80 





ARCADE AND THINKING GAMES 
16K and extended or level II BASIC 

TIME TREK, REAL TIME REAL 
GRAPHICS TREK. See the torpedoes fly 
and Klingons explode. No more scoll- 
ing displays, no more turn taking. - This 
one has real time and real displays. In 
BASIC - for 16K level II or extended color 
BASIC. $14.95. 

STARFIGHTER — This one man space 
war game pits you against spacecruisers, 
battlewagons, and one man fighters. You 
have the view from your cockpit window, a 
working instrument panel, and your wits. 
Another real time goody. $9.95. 

BATTLEFLEET — This grown-up ver- 
sion of Battleship is the toughest thinking 
game available on 80 computers. There is 
no luck involved as you seek out the 80's 
hidden fleet. This is a topographical toughie. 
$9.95. 

SLASHBALL — A two player game of 
strategy and skill, this is like nothing you 
have ever seen before. This takes fast 
fingers, quick wits and concentration. Play- 
able from age 6 to 65, it is a good family 
game. $9.95. 

MINOS - 8K - Features amazing 3D 
graphics. You see a maze from the top, the 
screen blanks, and when it clears, you are in 
the maze at ground level finding your way 
through on foot. Realistic enbugh to cause 
claustrophobia. $12.95. (COLOR-80 ONLY) 




Circle # 50 



2352 S. Commerce, Walled Lake, Ml 48088 
(313)669-3110 



COLOR-80 
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The keywords used in the data statements are those used by the 
Model I/Ill only. To fully utilize Spacer on your machine, add the 

keywords unique' to your BASIC at the end of the data list. Please 
note that the "XXXX" must be the last item in the list. 



or Models 



Writing a program in a 
compressed form (without 
unnecessary spaces) so it will run in 
limited memory often makes it 
impossible to share a readable 
listing. While it does not "stylize" 
according to Nevison (The Little 
Book of BASIC Style, Addison* 
Wesley Publishing Co., 1978), 
Spacer does create a legible program 
file from a compressed program. 

This program works in a 16K 
computer with a minimum of 
one disk drive and any DOS (Disk 
Operating System). When entering 
the program, do not enter the 
remark statements as they will use 



more than a 16K disk system can 
handle. If you have 32K of memory 
or larger, there will be no problem. 

Programs saved in the ASCII 
format (SAVE" filespec" , A) are 
stored as sequential files. The file 
input/output commands can be 
used to manipulate program lines as 
if they were filed data. The concept 
is extendable to renumbering, 
comparing two or more programs, 
global editing, and a true compactor 
which concatenates program lines 
and changes all line references. 

Spacer sifts each character of a 
program line through a series of 
questions asking, "How does this 
character fit Spacer's grammar of 



BASIC?" It recognizes eight 
elements: numbers and letters, 
which also combine into variables; 
symbols; command words; remarks 
(REM statements); DATA state- 
ments; and strings between quote 
marks. Blanks are neither added to 
or deleted from remarks and strings 
between quotes, and are pretty 
much ignored in DATA elements, 
too. Command words are compared 
to a "token" list just as they are in 
the BASIC interpreter. Because of 
its slowness and the fact that I am 
so used to reading closely typed 
programs, I use Spacer rarely. 
Essentially, it is an exercise in using 
sequential files. ■ 



1 REM 

2 REM 

3 REM 

4 REM 

5 REM 

6 REM 

7 REM 

8 REM 

9 REM 



******************************* 

Listing of SPACER/BAS for 
Models I, II, and III 

by LOU PA 

BOX 19358 

SACRAMENTO CA 95819 
JANUARY 1980 (C) 
******************************* 



10 CLS:CLEAR1000:DEFSTRA-G:DEFINTH-Q:N= 
34:F=CHR$(N):G0T0250 

11 ' SKIP OVER SUBROUTINES TO INITIAL 
IZATION 

15 REM STRINGS BETWEEN QUOTES SUBROUTIN 
E SEARCHES FOR THE SECOND OF A PAIR 
F QUOTE MARKS (CHR$(34)), AND RETURNS 

THE STRING PLUS THE QUOTE MARKS 

16 ' NEW, SPACED PROGRAM LINE- REFERR 
ED FROM REGULAR SEQUENCE LINE #360 AN 
D FROM WITHIN THE DATA STATEMENT ROUT 
INE LINE #470. 

20 J=INSTR(K+1,C,F):IFJ=0THENJ=L 
30 D=MID$(C,K,J-K+1): RETURN 
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35 REM PRELIMINARY SPACING AROUND SYMB0 
LS. SPACER BEGINS BY ADDING SPACES AN 
D THE DELETING THEM. 

40 IFH=330RH=350RH=360RH=370RH=440RH=59 
0RH=630RH=64THEND=D+" ":G0T050 

45 IFH=450RH=420RH=430RH=580RH=600RH=61 
0RH=62THEND=" "+D+" " 

46 REM NEXT TWO LINES SET THE SYMBOL SP 
ACING VARIABLES. H1 8 H2 REPRESENT TH 
E CHARACTERS AT THE RIGHT OF THE NEWL 
Y SPACED LINE VARIABLE "E." 

47 ' H3 S H4 ARE THE LEFT CHARACTERS 
OF PROCESSING CHARACTERS TO BE ADDED. 

D2 & D3 ARE USED TO CHECK SPACING AR 
0UND CERTAIN TWO AND THREE LETTER COM 
MAND WORDS (LIST IN LINE #70). 
50 H1=ASC(RIGHT$(E,1)):H2=ASC(MID$(E,LE 
N<E>-1,1>>:D2= ,,, ':D3= ,m 

55 IFLEN(E)>2THEND2=MID$(E„LEN(E)-2,2) : 
IFLEN(E)>3THEND3=MID$(E,LEN(E)-3,3) 

60 H3=ASC(LEFT$(D,1)):IFLEN(D)>1THENH4= 
ASC(MID$(D,2,1))ELSEH4=130 

65 REM NEXT LINE PREVENTS REMOVING SPAC 
E FROM BETWEEN THE PROGRAM WORDS "AND 




NOW — as an introduction to the hardware di 
PROGRAMMER'S GUILD - the following prices 



MODEL III16K LEVEL II - RETAIL $995. 

MODEL III 48K DUAL DRIVE WITH RS-232 - RETAIL $2495 

COLOR COMPUTER 16K WITH EXTENDED BASIC - RETAIL $599 

DAISY WHEEL II PRINTER - RETAIL $1995 

LINE PRINTER VII - RETAIL $399 



_D PRICE $839 
GUILD PRICE $2095 
_D PRICE $499 
D PRICE $1749 
.D PRICE $329 



SUPPLIES 

ACC-U-WRITE BLANK MINI DISKETTES 5% SINGLE SIDE, DOUBLE DENSITY LIBRARY 
BOX INCLUDED RETAIL $48 per 10 GUILD PRICE $26. 



SOFTWARE SPECIALS 

MODEL III DISK USERS ONLY - THE GRAYLOCK 
CHRONICLES - an album of model III ADVENTURES 
featuring excursions into the shadowy oftimes fatal fantasy 
world of GRAYLOCKLAND. Contains SPIDER MOUNTAIN 
ADVENTURE, DEADLY DUNGEON, DRAGONQUEST, 
REVENGE OF THE BALROG and THE FORTRESS AT 
TIMESEND. Six great classic adventures on disk. A value 
of nearly $100. * GUILD PRICE $39.95. 

all users - the dreadnaught chronicles - now on diskette 
or tape - the grimy R rated DEATH DREADNAUGHT - 
together with Alex Kries' bold sequel THE DOMES OF 
KILGARI. Two high speed machine language adventures 
that will have you crying in frustration as you try to solve 
them; They're tough - but not impossible. 

GUILD PRICE $24.95 Tape; $29.95 Disk 

Note: Albums come in handsome leatherette folders for 
easy storage. 



NEWS FROM THE PROGRAMMER'S GUILD 

TOWER OF FEAR > 

Located on the northern steppes of 
GRAYLOCKLAND is a formidable castle, home 
to a wizard of awesome powers. And your 
job is to penetrate this structure and make 
your way to the Red Warlock's Tower, 
retrieving objects of immeasurable value, 
a task no human or Gray lock has ever 
accomplished and lived. Charles Forsythe, 
whose DRAGONQUEST has become an 
Adventure classic, now continues the gray- 
LOCK SAGA in the format that you have come 
to expect. No voices or pictures to waste 
precious memory. Just pure unadulterated 
adventure, undiluted, a compu-puzzle you 
may never fully solve. 



Tape $14.95 



Disk $19.95 



THE PROGRAMMER'S GUILD 
c/o Radio Shack Dealer 
Shopping Village 
Peterborough, NH 03458 



Voice (603) 9246065 

Data (603) 9247920 

Visa/Mastercard 

or Certified Check 



Allow Two Weeks for Delivery 

Circle # 51 
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," "OR," "IF," OR THE PUNCTUATION MAR 
KS COMMAS, COLONS, AND SEMI-COLONS AN 
D A RIGHT PARENS "(". THIS ALLOWS A S 
TATEMENT LIKEs 

66 • IF(X=1AND(A=20RB=3))THEN ####, T 
BE SPACED LIKES IF (X = 1 AND (A = 
2 OR B = 3)) THEN ####, RATHER THAN; 
IF(X = 1 AND(A = 2 OR B = 3)) THEN ## 
##. THUS IT ALLOWS THE RIGHT PARENS T 
STAY CLOSE TO 

67 ' OTHER WORDS LIKE LEFT$(, MID$(, 
ETC. 

70 IFH1=32ANDH3=40AND(D3="AND"ORD2="OR" 

0RD2="IF"0RH2=440RH2=580RH2=59)THEN57 


75 REM REMOVES BLANK AFTER LINE FEED, R 

IQHT PARENS, "/," AND BETWEEN THE EQU 

ALS/NOT EQUALS SIGNS «=» . 
80 IFH3=32AND((H1=100RH1=470RH1=40)0R(( 

H1=600RH1=610RH1=62)AND(H4=600RH4=610 

RH4=62) ) )THEND=MID$ (D,2) :G0T060 
85 REM REMOVES BLANK BETWEEN ANYTHING A 

ND THE ASCII CHARS LISTED AS DECIMAL 

NUMBERS IN THE LINE. THE PRINTCHR$(8) 
IS A SCREEN FORMAT COMMAND THAT ALLO 

WS THE NEWLY SPACED LINE TO PRINT COR 

RECTLY. 

90 IFH1=32AND(H3=470RH3=100RH2=400RH3=4 
1 0RH3=320RH3=44)THEN95 

91 IFH1=32AND(H3=430RH3=400RH3=580RH3=5 
90RH3=330RH3=350RH3=360RH3=370RH3=91) 
THEN 95 

92 GOTO 100 

95 E=LEFT$_(E,LEN(E)-1)sPRINTCHR$(8);sG0 

T050 
100 GOT0570 

105 REM THIS ROUTINE COMPARES THE PROGR 
AM LINE POSITION WITH A LIST OF THE C 
OMMAND WORDS. THE SEARCH IS IN THE OR 
DER OF THE WORDS B S OCCURANCE IN MY PR 
QGRAMS. CHANGE THE SEQUENCE TO SUIT Y 
OURSELF. 

106 ' NOTE, HOWEVER, THAT A SHORT WOR 
D THAT IS CONTAINED IN A LONG WORD— P 
RINT IN PRINTS, FOR EXAMPLE, MUST FOL 
LOW THE LONG WORD IN THE SEARCH OR IT 

WILL SPLIT THE WORD—PRINT 3, OR PRI 
NT USING, ETC. 

110 READDO 

111 IFD0="XXXX"TJHEN570 

112 IFMID$(C,I,LEN(D0))=D0THEND=" "+D0+ 
" ":I=I+LEN(D0)-1 SG0T050ELSE110 

120 DATA OR,AND,GOTO,IF,THEN,FOR,NEXT,0 

N,T0,G0SUB 
130 DATA LEFT$,MID$,INSTR,CHR$,ELSE,CLS 

,LPRINT 
140 DATA PRINT3,PRINT#-1,PRINT#-2,PRINT 



USING,PRINT#,PRINT 
150 DATA INPUT#-1,INPUT#-2,INPUT#, INPUT 

,INT,LEN,STR$ 
160 DATA RIGHTS, PEEK, POKE, LINEINPUTtf, LI 

NEINPUT, GET, PUT, LSET, READ 
170 DATA ASC, AS, FIELD, RETURN, STRING$,VA 

RPTR,CDBL,CINT 
180 DATA CSNG,CVD,CVI,CVS,MKD$,MKI$,MKS 

$,INKEY$,CLOSE 
190 DATA OPEN, LET, STEP, TAB, USR,VAL,USIN 

G,LINE,LOAD 
200 DATA DIM,LOF,EOF,RUN,MEM,END,CSAVE, 

RESTORE, RANDOM 
210 DATA DEFINT,DEFSTR,DEFDBL,DEFUSR,RE 

SUME, POINT, SET 
220 DATA RSET,RESET,ABS,ATN,COS,EXP,FIX 

,NOT,RND,SGN,LOC,LOG 
230 DATA SIN,SQR,TAN,STOP,FREE,FRE,KILL 

, ERROR, ERR, NAME, SAVE 
240 DATA CLEAR, TROFF,DEFSNG,TIME$,OUT,M 

ERGE, DELETE, TRON,XXXX 
250 0NERR0RG0TO5000 
255 REM THE MENU IS SHORT AND ERROR TRA 

PPED 
260 INPUT"PROCESSESs 
SELECT? 

1 DESPACE FOR COMPACTNESS 

2 RESPACE FOR CLARITY 
";M:IFM<10RM>2THEN26Q 

270 INPUT"REMOVE REMARKS Y/N";6A:IFGA<> 

"Y"THENGA="N" 
280 LINEINPUT" 

PROGRAM FILESPEC ==> "; A: IFA=""THEN280 
290 LINEINPUT" 

PROCESSED PROGRAM FILESPEC ==> ";B 
295 REM THE LINE PREVENTS YOUR TRYING T 

OPEN ONE FILESPEC FOR BOTH INPUT AN 

D OUTPUT AT THE SAME TIME. 
300 IFB=ATHEN280ELSEIFB=""THEN290 
310 0PEN"I",1,A;0PEN"0",2,B 
315 REM CLEARS SCREEN AND PRINTS THE FI 

LESPECS 
320 CLSsPRINT90,"RESPACING ";A;" INTO " 

;B 
325 REM THE PROGRAM BEGINS BY LINEINPUT 

ING A PROGRAM LINE FROM DISK. IF IT I 

S A NULL LINE, THE FILE IS CHECKED FO 

R THE END OF FILE MARKER AS A PRECAUT 

ION. 
330 E="":LINEINPUT#1,C:L=LEN(C):A#=A#+L 

:IFC=""THEN610 

335 REM THE LINE NUMBER IS STRIPPED AND 
PUT INTO THE NEW-LINE VARIABLE "E". 

THE SCREEN IS CLEARED FROM POSITION # 
128 TO DISPLAY THE NEW LINE AS IT IS 
SPACED. 

336 PRINTC 
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340 I=INSTR(C," ")sE=LEFT$(C,I):PRINTE| 
: 1=1+1 

345 REM NOW, THE LINE IS PROCESSED CHAR 
ACTER BY CHARACTER. MOSTLY, BY THE AS 
C NUMBER OF THE CHARACTER VARIABLE "H 

II 

m 

350 F0RI=IT0Ls:D=MID$(C,I,1):H=ASC(D) 

355 REM WE NEITHER WANT TO ADD OR DELET 
E SPACES FROM STRINGS BETWEEN QUOTES. 

IF THE CURRENT CHARACTER IS A QUOTE 
MARK, THIS LINE JUMPS TO THE QUOTE SU 
BROUTINE IN LINE 20-30* THE LOOP COUN 
TER INCREMENTS TO THE 

356 9 LENGTH OF THE STRING. IF THERE 
IS NO SECOND QUOTE, AS SOME PROGRAMME 
RS OMIT THE QUOTE MARK AT THE END OF 
A LINE, SPACER ASSUMES THE END OF THE 

LINE IS THE SECOND 

357 B QUOTE MARK. THE STRING IS IMMED 
IATELY CONCATENATED INTO THE NEW LINE 

VARIABLE. 

360 IFH=NTHENK=IsGOSUB20iI=J:GOT0580 

365 REM NUMBERS REQUIRE NO PROCESSING E 
XCEPT CONCATENATING. TO KEEP PROCESSI 
NG TIME DOWN WHILE ALLOWING A DESPACI 
NG OPTION, SPACER CONCATENATES SPACES 
IMMEDIATELY AND THEN REMOVES ANY EXT 
RAS. 

370 IF(H>47ANDH<58)0R(M=2ANDH=32)THEN57 


375 REM WHEN DESPACING BLANKS ARE REMOV 
ED BY JUMPING TO THE LOOPS END. STRIN 
GS WERE PROCESSED IN LINE 360, SO THI 
S LINE JUMPS ON TO CHECK THE SPECIAL 
COMMAND WORDS. 

380 IFM=1THENIFH=32THEN590ELSE420 

385 REM THIS LINE JUMPS TO SYMBOLS PROC 
ESS ROUTINE. 

390 IF(H=330R(H>35ANDH<65)0RH=91)ANDH<> 
39THEN40 

395 REM IT TAKES THE LONGEST TIME TO SE 
ARCH FOR A LETTER COMBINATION THAT IS 

NOT A COMMAND WORD. SINCE ALL COMMAN 
D WORDS HAVE AT LEAST TWO DIFFERENT L 
ETTERS THIS ROUTINE SKIPS THE WORD SE 
ARCH FOR LETTERS 

396 s FOLLOWED BY THE SAME LETTER OR 
ANY SYMBOL OR NUMBER. IT ALSO PASSES 
THROUGH THE LAST CHARACTER IN A LINE. 

400 IFKLTHENHB=ASC (MID$ (C,I+1 ,1 ) )ELSE5 

70 
410 IF(H=HB)0R((H>64ANDH<91)ANDHB<65)TH 

EN580 
415 REM THE DATA ROUTINE IS SPACER IN M 

INIATURE. FIRST, "DATA" IS SPLIT OFF 

AND THE COUNTER INCREMENTS. 




IJG would 

like to apologize to all 

readers, and dealers, who ordered 

The Custom TRS-80 and have been wondering where it is. 

Magazine advertisements have to be prepared 2 to 3 
months before they actually appear in print. Originally the 
book was scheduled for printing in early May, just as the 
first advertisements were to appear, but the Editor must 
have been in a time-warp when he made the original 
production estimates! 

He completely under-estimated the time needed to 
prepare and process the dozens of photographs, circuit 
diagrams, printed circuit layouts, assembly language 
programs and reams of information that Dennis Kitsz had 
provided. 

The book has now been scheduled for printing in early 
November, and should be available before the end of the 
month. It will be worth the wait, it's one heck of a book! 

Credit card orders are not being processed until the book 
is back from the printers. If you prepaid by check, and 
would prefer not to wait, then you can obtain a full refund 
prior to shipment - or use your credit towards other IJG 
products. 

Sorry about this, thank you for waiting, 






"^-H** 



Jim ('What year is it?') Perry, Editor 




Circle # 52- 



1260 West Foothill Blvd., 
Upland, California 91786 

(714) 946-5805 

TRS-80 is a trademark of Tandy 
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420 IFMID$(C,I,4)O"DATA ,, THEN520ELSEI=I 

+4:DD=" DATA " 
425 REM SECOND, ANY BLANKS BETWEEN "DAT 

A" AND ITS FIRST ELEMENT ARE STRIPPED 
BY INCREMENTING THE COUNTER. 
430 IFMID$(C,I,1)=" "THENI=I+1:G0T0430 
435 REM THIRD, A CHARACTER BY CHARACTER 
LOOP IS INITIATED WITH VARIABLES AS 

IN THE MAIN LOOP. 
440 F0RK=IT0L:D=MID$(C,K,1):H=ASC(D) 
445 REM STRIP BLANKS AFTER A COMMA AND 

BEFORE AN ELEMENT. 
450 IFH=44THENIFMID$(C,K+1,1)=" "THENK= 

K+1:G0T0450 
455 REM CHECKS FOR COLON— TERMINATOR. I 

F PRESENT, JUMPS OUT OF LOOP. 
460 IFH=58THENDD=DD+D:GOT0510 
465 REM STRINGS BETWEEN QUOTES ROUTINE. 
DATA ELEMENTS CAN ALSO BE QUOTED STR 

INGS. 
470 I FH=NTHENG0SUB20 : K=J : G0T0490 
475 REM INSERT SPACE AFTER COMMA WHEN R 

ESPACING 
480 IFH=44ANDM=2THEND=D+" " 
485 REM CONCATENATE DATA ELEMENT CHARAC 

TERS 
490 DD=DD+D 

500 NEXTK 

505 REM CHANGE DATA STATEMENT VARIABLE 
INTO MAIL LOOP CONCATENATING VARIABLE 
. INCREMENT MAIN LOOP COUNTER. JUMP T 
CONCATENATE LINE. 
510 D=DD:DD= ,M, sI=K:GOT0570 
515 REM PROCESS REM STATEMENTS 
520 IFMID$(C,I,3)<>"REM"ANDH<>39THEN560 

525 REM IF REMS ARE NOT TO BE REMOVED, 
THEN THE ENTIRE REMARK IS PUT INTO TH 
E CONCATENATING VARIABLE, THE LOOP CO 
UNTER IS INCREMENTED, AND THE REM IS 
CONCATENATED. 

530 IFGA="N H THEND=MID$(C,I):I=L:G0T0570 

535 REM IF REMS ARE TO BE REMOVED, THE 
NEWLY SPACED LINE (E) IS BACK SEARCHE 
D FOR A COLON AND ALL FROM THE COLON 
TO THE RIGHT IS STRIPPED. IF THE BACK 
SEARCH GOES ALL THE WAY TO THE BEGINN 
ING OF THE LINE, THE 

536 ' ENTIRE LINE IS A REMARK AND THE 
LINE IS PASSED OVER. 

539 IF H=39 THEN600 

540 F0RII=LEN(E)T01STEP-1 :H=ASC(MID$(E, 
II, D) 

550 IFH<>58THENNEXTIIsGOT0610sELSEE=LEF 
T$(E,II-1):GOT0600 



555 REM NOW, SEARCH THROUGH THE COMMAND 

WORD LIST. 
560 IFM=2THENPOKE16553,255:RESTORE:GOTO 

110 
565 REM REMOVE EXCESS SPACES. 
570 IFRI6HT$(E,1)=" "ANDLEFT$(D,1 )=" "T 

HEND=MID$(D,2) 
575 REM CONCATENATE INTO THE NEWLY SPAC 

ED LINE. 
580 E=E+D:PRINTD; 
585 REM END OF MAIN LOOP. 
590 NEXTI 

595 REM PRINT NEW LINE TO DISK. 
600 PRINT#2,E 
605 REM CHECK FOR END OF FILE MARKER AN 

D GO BACK FOR ANOTHER LINE OR CLOSE T 

HE FILES. 
610 IF E0FC1) THEN CLOSE ELSE 320 
620 END 
4995 REM ERROR TRAPPING ROUTINE FOR STR 

ING TOO LONG. IF SO, PRINT MESSAGE ON 
LINE PRINTER AND RECORD AS MUCH AS P 

OSSIBLE. 
5000 IF ERR=28 AND ERL=580 THEN LPRINT 

LEFTS (E, 10) : RESUME600 
5010 ONERRORGOTOO 
5020 STOP 

Model II changes 
Note: Add keywords to the token list as needed. 

560 IFM=2THENREST0RE:G0T0110 

620 IF GA="N" THEN END 

670 0PEN"I",1,B 

680 0PEN U 0",2,A 

690 IF E0FC1) THEN CLOSE : END 

700 LINEINPUT#1,C 

710 A%=INSTR(C," ") 

720 B%=LEN(C) 

730 IF A%=B% THEN 690 

740 PRINT C 

750 PRINT#2,C 

760 G0T0690 



Color computer version 
Note: Add keywords to the token list as needed. 



************************* 

SPACER.... 

by LOU PA 
BOX 19358 
SACRAMENTO CA 95819 

************************* 
10 CLS:CLEAR1000:N=34:F$=CHR$(N) 
SG0T0260 



REM 
REM 
REM 
REM 
REM 
REM 
REM 

8 REM 

9 REM 
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11 REM SKIP OVER SUBROUTINES TO 
INITIALIZATION. 

15 REM STRINGS BETWEEN QUOTES 
SUBROUTINE SEARCHES FOR THE 
SECOND OF A PAIR OF QUOTE 
MARKS (CHR$(34)), AND RETURNS 
THE STRING PLUS THE QUOTE 
MARKS. 

16 B NEW, SPACED PROGRAM LINE. 
REFERRED FROM REGULAR 
SEQUENCE LINE #360 AND FROM 
WITHIN THE DATA STATEMENT 
ROUTINE LINE #470 

20 J=INSTR(K+1,C$,F$):IFJ=0 THEN 

J=L 

30 D$=MID$(C$,K,J-K+1): RETURN 

35 REM PRELIMINARY SPACING 

AROUND SYMBOLS. SPACER BEGINS 
BY ADDING SPACES AND THEN 
DELETING THEM. 

40 IFH=330RH=350RH=360RH=370RH=4 

40RH=590RH=630RH=64 THEND$=D$+" 

":GOT050 

45 IFH=450RH=420RH=430RH=580RH=6 
00RH=610RH=62 THEND$=" "+D$+" " 

46 REM NEXT TWO LINES SET THE 
SYMBOL SPACING VARIABLES. H1 
& H2 REPRESENT THE CHARACTERS 
AT THE RIGHT OF THE NEWLY 
SPACED LINE VARIABLE "E." 

47 ' H3 S H4 ARE THE LEFT 
CHARACTERS OF PROCESSING 
CHARACTERS TO BE ADDED. D2 S 
D3 ARE USED TO CHECK SPACING 
AROUND CERTAIN TWO AND THREE 
LETTER COMMAND WORDS (LIST 
IN LINE #70). 

50 H1=ASC(RIGHT$(E$,1)):H2=ASC(M 
ID$(E$,LEN(E$)-1,1)):D2$= ,M, ;;D3$= 

llll 

55 IFLEN(E$)>2 THEND2$=MID$(E$,L 

EN(E$)-2„2):IFLEN(E$)>3 THEND3$= 

MID$(E$,LEN(E$)-3,3) 

60 H3=ASC(LEFT$(D$,1)):IFLEN(D$) 

>1 THENH4=ASC(MID$(D$,2,D) ELSE 

H4=130 

65 REM NEXT LINE PREVENTS 
REMOVING SPACE FROM BETWEEN 
THE PROGRAM WORDS "AND", 
"OR", "IF" OR THE PUNCTUATION 
MARKS; COMMAS, COLONS, AND 
SEMI-COLONS AND RIGHT PARENS: 
"(". THIS ALLOWS A STATEMENT 
LIKE; 

66 ' IF(X=1AND(A=20RB=3))THEN... 
TO BE SPACED LIKE: 

IF OX = 1 AND (A = 2 OR B = 



PROGRAMMING TOOLS 
FOR YOUR TRS-80® 



INSTANT ASSEMBLER 

The INSTANT ASSEMBLER is a new, powerful tape-based assembler and debugger for 
the TRS-80 Now you can assemble directly to memory and immediately debug your 
program with the built in single stepping debugger. Quickly switch from assembler to 
debugger and back again without losing the source code. This feature makes INSTANT 
ASSEMBLER an excellent learning tool for assembly language programming. 
INSTANT ASSEMBLER is absolutely unique among tape based assemblers in that it 
produces relocatable code modules that can be linked with the separate LINKING 
LOADER, which is supplied in two versions for loading programs into either high or low 
RAM This lets you build long programs with small modules. INSTANT ASSEMBLER also 
features immediate detection of errors as the source code is entered, a compactly coded 
source format that uses 1/3 as much memory as standard source, and many operational 
features including single stroke entry of DEFB and DEFW, pinpoint control of listings, 
alphabetic listing of symbol table, separate commands for listing error lines or the symbol 
table, •block move function, and verification of source tapes. 

INSTANT ASSEMBLER'S debugger provides single stepping with full register displays, 
decimal or hex entry of addresses, forward or backward memory displays, disassembly 
of object code in memory, memory display in ASCII format, and hex-to-decimal or 
decimal-to-hex conversion. The single-stepper will step one instruction at a time or at a 
fast rate to any defined address. 

INSTANT ASSEMBLER occupies less than 8400 bytes of memory. In a 16K machine this 
will leave you enough memory to write assembly language programs of around 2000 
bytes. This and its module-linking feature make INSTANT ASSEMBLER ideal for users 
with only 16K machines. The instruction manual may be purchased separately for $3. 
which will apply towards the purchase of the INSTANT ASSEMBLER 
Specify Model I or Model III. INTASM $29.95 



SINGLE STEP THROUGH RAM OR ROM 

STEP80 allows you to step through any machine language program one instruction at a 
time, and see the address, hexadecimal value, Zilog mnemonic, register contents, and 
step count for each instruction. The top 14 lines of the video screen are left unaltered so 
that the target program may perform its display functions unobstructed. STEP80 will 
follow program flow right into the ROMs, and is an invaluable aid in learning how the ROM 
routines function Commands include step (trace), disassemble, run in. step mode at 
variable step rate, display or alter memory or CPU registers, jump to memory location, 
execute a CALL, set breakpoints in RAM or ROM, write SYSTEM tapes, and relocate to 
any page in RAM, The display may also be routed to your line printer through the device 
control block so custom print drivers are automatically supported. 
Specify Model I or Model III. STEP80 $16.95 

TELECOMMUNICATIONS PROGRAM 

This machine language program may be used as a smart terminal with time share 
systems or for high speed file transfers between two disk-based micros over modems or 
direct wire. It is menu driven and extremely simple to use. Functions include real-time 
terminal mode, save RAM buffer on disk, transmit disk file, receive binary files, examine 
and modify UART parameters, program 8 custom log-on messages, automatic 16-bit 
checksum verification of accurate transmission and reception, and many more user 
conveniences. Supports line printers and lowercase characters. With this program you 
will no longer need to convert machine language programs to ASCII for transmission, and 
you will know immediately if the transmission was accurate. This program comes on a 
formatted disk. 
Specify Model I or Model III. TELCOM $39.95 

PROGRAM INDEX VERSION 2.0 

Assemble an alphabetized index of your entire program library from disk directories. 
Program names and free space are read automatically (need not be typed in) and may be 
alphabetized by disk or program The list may also be searched for any disk, program, or 
extension; disks or programs added or deleted; and the whole list or any part sent to the 
printer Printer output may be requested in three different formats including labels. The 
list itself may also be stored on disk for future access and update. It also includes a 
PURGE mode for quickly killing unwanted files. Directory reads and alphabetizing is 
done in machine code for speed. 1 ,000 programs may be sorted in less than 10 seconds. 
Works with TRSDOS, NEWDOS, and NEWDOS/80 single or double density. One drive 
and 32K required. 
Specify Model I or Model III. INDEX $24.95 

DUPLICATE SYSTEM TAPES WITH CLONE . 

Make duplicate copies of any tape written for Level II. They may be SYSTEM tapes or 
data lists. The file name, load address, entry point, and every byte (in ASCII format) are 
displayed on the video screen. Model III version allows changing tape speed. 
Specify Model I or Model III. CLONE $16.95 

Circle # 53 



ORDERING: Complete satisfaction is guaranteed or a full refund will 
be made All programs (except TO COM) are shipped on cassette 
unless $5 is in< luded for a formatted (no system) disk Include $1.50 
for postaqp find handling California residents idd b% sales tax. Visa. 
Mastercha^ge and COD orders accepted SPECIFY MODEL. I OR 
MODEL ill. Dealei inquiries invited 

MUMFORD MICRO SYSTEMS 

Box 400-D Summerland, California 93067 (805) 969-4557 
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3)) THEN*-,., RATHER THANs 
IF(X = 1 AND(A = 2 OR B = 3)) 
THEN.., THUS IT ALLOWS THE 
RIGHT PARENS TO STAY CLOSE TO 

67 ■ OTHER WORDS LIKE LEFTS (, 
MID$(, ETC. 

70 IFH1=32ANDH3=40AND(D3$="AND"0 

RD2$="0R ,, 0RD2$="IF"0RH2=440RH2=5 

80RH2=59) THEN570 

75 REM REMOVES BLANK AFTER LINE 
FEED, RIGHT PARENS, "7" AND 
BETWEEN THE EQUALS/NOT EQUALS 
SIGNS «=». 

80 IFH3=32AND((H1=100RH1=470RH1= 

40)OR((H1=600RH1=610RH1=62)AND(H 

4=600RH4=610RH4=62))) THEND$=MID 

$(D$,2):GOT060 

85 REM REMOVES BLANK BETWEEN 
ANYTHING AND THE ASCII CHARS 
LISTED AS DECIMAL NUMBERS IN 
THE LINE. THE PRINTCHR$(8) 
IS A SCREEN FORMAT COMMAND 
THAT ALLOWS THE NEWLY 
SPACED LINE TO PRINT 
CORRECTLY. 

90 IFH1=32AND(H3=470RH3=100RH2=4 
00RH3=410RH3=320RH3=44) THEN95 

91 IFH1=32AND(H3=430RH3=400RH3=5 
80RH3=590RH3=330RH3=350RH3=360RH 
3=370RH3=91) THEN95 

92 GOT0100 

95 E$=LEFT$(E$,LEN(E$)~1):PRINTC 

HR$(8);;GOT050 

100 G0T0570 

105 REM THIS ROUTINE COMPARES 
THE PROGRAM LINE POSITION 
WITH A LIST OF THE COMMAND 
WORDS. THE SEARCH IS IN THE 
ORDER OF THE WORDS 8 S 
OCCURANCE IN MY PROGRAMS. 
CHANGE THE SEQUENCE TO SUIT 
YOURSELF. 

106 "NOTE, HOWEVER, THAT A SHORT 
WORD THAT IS CONTAINED IN A 
LONG WORD— PRINT IN PRINTS, 
FOR EXAMPLE, MUST FOLLOW THE 
LONG WORD IN THE SEARCH OR 
IT WILL SPLIT THE WORD- 
PRINT 3, OR PRINT USING. 

110 READDOS 

111 IFDO$= M XXXX H THEN570 

112 IFMID$(C$,I,LEN(DO$))=DO$ TH 
EN114 ELSE110 

114 D$= M "+D0$+" ":I=I+LEN(DO$)» 

1:G0T050 

120 DATA OR,AND,GOTO,IF,THEN,FOR 

,NEXT,ON,TO,GOSUB 
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130 DATA LEFTS, MID$,INSTR,CHR$,E 

LSE,CLS,LPRINT 

140 DATA PRINTa,PRINT#-1,PRIT#-2 

,PRINTUSING,PRINT#,PRINT 

150 DATA INPUT#-1,INPUT#-2, INPUT 

#,INPUT,INT,LEN,STR$ 

160 DATA RIGHTS, PEEK, POKE, LINEIN 

PUT#,LINEINPUT, GET, PUT, LSET, READ 

170 DATA ASC, AS, FIELD, RETURN, STR 

ING$,VARPTR,CDBL,CINT 

180 DATA CSNG,CVD,CVI,CVS,MKD$,M 

KI$,MKS$,INKEY$,CLOSE 

190 DATA OPEN, LET, STEP, TAB, USR,V 

AL, USING, LINE, LOAD 

200 DATA DIM, LOF, EOF, RUN, MEM, END 

,CSAVE, RESTORE, RANDOM 

210 DATA DEFINT,DEFSTR,DEFDBL,DE 

FUSR, RESUME, POINT, SET 

220 DATA RSET, RESET, ABS,ATN, COS, 

EXP,FIX,NOT,RND,SGN,LOC,LOG 

230, DATA SIN, SQR, TAN, STOP, FREE, F 

RE, KILL, ERROR, ERR, NAME, SAVE 

240 DATA CLEAR, TROFF,DEFSNG, TIME 

$,OUT, MERGE, DELETE, TRON,XXXX 

255 REM THE MENU IS SHORT AND 
ERROR TRAPPED 

260 CLSsPRINTTAB(11) 88 PROCESSES 88 s 

PRINT:PRINT"SELECT: ": PRINT: PRINT 

TAB(5) 88 1 DESPACE FOR COMPACTNES 

S 8 ':PRINTTAB(5) ,8 2 RESPACE FOR CL 

ARITY 88 ;sINPUTM;IFM<lORM>2 THEN2 

60 

270 INPUT"REMOV£ REMARKS Y/N 18 ;GA 

$SlFGA$<> ,8 Y" THENGA$="N 88 

280 LINEINPUT 88 INPUT FILESPEC ! ';A 

$:IFA$=" H THEN280 

290 LINEINPUT"OUTPUT FILESPEC "; 

B$ 

295 REM THE LINE PREVENTS YOUR 
TRYING TO OPEN ONE FILESPEC 
FOR BOTH INPUT AND OUTPUT AT 
THE SAME TIME. 

300 IFB$=A$ THEN280 ELSEIFB$= 88 " 

THEN290 

310 OPEN"I 88 ,1 ,A$sOPEN 88 8, ,2,B$ 

315 REM CLEARS SCREEN AND PRINTS 
THE FILESPECS 

320 CLS:PRINT"RESPACING ";A$:PRI 

NT 88 INTO ";B$ 

325 REM THE PROGRAM BEGINS BY 
LINEINPUTING A PROGRAM LINE 
FROM DISK. IF IT IS A NULL L 
LINE, THE FILE IS CHECKED 
FOR THE END OF FILE MARKER 
AS A PRECAUTION. 

330 E$= ,888 ^LINEINPUT#1,C$;L=LEN(C 

$)sA=A+L;IFC$= 888 ' THEN610 
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335 REM THE LINE NUMBER IS 
STRIPPED AND PUT INTO THE 
NEW-LINE VARIABLE "E". THE 
SCREEN DISPLAYS THE NEW LINE 
AS IT IS SPACED. 

336 PRINTC$ 

340 I=INSTR(C$," ")sE$=LEFT$(C$, 

I)sPRINTE$;sI=I+1 

345 REM NOW,, THE LINE IS 
PROCESSED CHARACTER BY 
CHARACTER. MOSTLY, BY THE 
ASCII NUMBER OF THE 
CHARACTER VARIABLE "H". 

350 FORI=I T0L:D$=MID$(C$,I,1):H 

=ASC(D$) 

355 REM WE NEITHER WANT TO ADD 
OR DELETE SPACES FROM 
STRINGS BETWEEN QUOTES. IF 
THE CURRENT CHARACTER IS A 
QUOTE MARK, THIS LINE JUMPS 
TO THE QUOTE SUBROUTINE IN 
LINES 20-30. THE LOOP 
COUNTER INCREMENTS TO 

356 % LENGTH OF THE STRING. IF 
THERE IS NO SECOND QUOTE, AS 
SOME PROGRAMMERS OMIT THE 
QUOTE MARK AT THE END OF A 
LINE, SPACER ASSUMES THE END 
OF THE LINE IS THE SECOND 

357 s QUOTE MARK. THE STRING IS 
IMMEDIATELY CONCATENATED 
INTO THE NEW LINE VARIABLE. 

360 IFH=N THENK=IsG0SUB20:I=J:G0 

T0580 

365 REM NUMBERS REQUIRE NO 
PROCESSING EXCEPT 
CONCATENATING. TO KEEP 
PROCESSING TIME DOWN WHILE 
ALLOWING A DESPACING OPTION, 
SPACER CONCATENATES SPACES 
IMMEDIATELY AND THEN REMOVES 
ANY EXTRAS. 

370 IF(H>47ANDH<58)0R(M=2ANDH=32 

) THEN570 

375 REM WHEN DESPACING BLANKS 
ARE REMOVED BY JUMPING TO 
THE LOOPS END. STRINGS WERE 
PROCESSED IN LINE 360, SO 
THIS LINE JUMPS ON TO CHECK 
THE SPECIAL COMMAND WORDS. 

380 IFM=1 THENIFH=32 THEN590 ELS 

E420 

385 REM THIS LINE JUMPS TO 
SYMBOLS PROCESS ROUTINE. 

390 IF(H=330R(H>35ANDH<65)0RH=91 

)ANDH<>39 THEN40 

395 REM IT TAKES THE LONGEST 



TIME TO SEARCH FOR A LETTER 
COMBINATION THAT IS NOT A 
COMMAND WORD. SINCE ALL 
COMMAND WORDS HAVE AT LEAST 
TWO DIFFERENT LETTERS THIS 
ROUTINE SKIPS THE WORD 
SEARCH FOR LETTERS 

396 "FOLLOWED BY THE SAME LETTER 
OR ANY SYMBOL OR NUMBER. IT 
ALSO PASSES THROUGH THE LAST 
CHARACTER IN A LINE. 

400 IFKL THENHB=ASC(MID$(C$,I+1 

,1)) ELSE570 

410 IF(H=HB)0R((H>64ANDH<91)ANDH 

B<65) THEN580 

415 REM THE DATA ROUTINE IS 

SPACER IN MINIATURE. FIRST, 
"DATA" IS SPLIT OFF AND THE 
COUNTER INCREMENTS. 

420 IFMID$(C$,I,4X> !! DATA" THEN5 

20 ELSEI=I+4:DD$=" DATA " 

425 REM SECOND, ANY BLANKS 

BETWEEN "DATA" AND ITS FIRST 
ELEMENT ARE STRIPPED BY 
INCREMENTING THE COUNTER. 

430 IFMID$(C$,I,1)=" " THENI=I+1 

SGOT0430 

435 REM THIRD, A CHARACTER BY 
CHARACTER LOOP IS INITIATED 
WITH VARIABLES AS IN THE 
MAIN LOOP. 

440 FORK=I T0LsD$=MID$(C$,K,1):H 

=ASC(D$) 

445 REM STRIP BLANKS AFTER A 

COMMA AND BEFORE AN ELEMENT 

450 IFH=44 THENIFMID$(C$,K+1,1)= 

" " THENK=K+1sGOT0450 

455 REM CHECKS FOR COLON- 
TERMINATOR. IF PRESENT, 
JUMPS OUT OF LOOP. 

460 IFH=58 THENDD$=DD$+D$:G0T051 



465 REM STRINGS BETWEEN QUOTES 
ROUTINE. DATA ELEMENTS CAN 
ALSO BE QUOTED STRINGS. 

470 IFH=N THENG0SUB20;K=J:G0T049 



475 REM INSERT SPACE AFTER 
COMMA WHEN RESPACING 

480 IFH=44ANDM=2 THEND$=D$+" " 

485 REM CONCATENATE DATA 
ELEMENT CHARACTERS 

490 DD$=DD$+D$ 

500 NEXTK 

505 REM CHANGE DATA STATEMENT 
VARIABLE INTO MAIL LOOP 
CONCATENATING VARIABLE. 
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MICRO IMAGES 



SUPER SOFTWARE & HARDWARE BUYS 

PRICES INCLUDE SHIPPING WITHIN CONTINENTAL USA 



EPSON 



CALL 

FOR OUR LOW PRICES 



OKI DATA 



RS232NotReq. LYNX Mod l/lll 259.95 

ir|c| udes aj^ jiaj/ans wer. caDies and terminal software 



DISKETTES 



Verbatim 5% box n/n djq n nn 

na f qjj ffi of 10 D/D3QU-UU 



COPYRIGHT KIT - A must tor authors who want to learn how 
to protect their programs. Written by national attorneys. $1 1 .95 

AMBER EASE Amber Filter for screen. Easy to install & aids 
eye fatigue. For ail TRS-80 Models $19.95 



■ i * 



$144.95 

Mod I or III includes manual & latest updates 

DOSPLUS-33S/3.3D/3.3I 




^^* 



* * m ■- ■ 



. . $89.95 



MAXI MANAGER Mod l/lll bv ^SlWlilS" 1 48K Disk $84.95 



LAZYWRITER a best buy in word processors 

32 K Mod 1 Only $118,95 Mod Ml On ly $164.95 



Proofreader by Soft-tools Mod I - 49.95 Mod III ■ 59.95 

Proofedit by Soft-tools Mod I - 28.50 Mod III ■ 28.50 

Grammatik by Soft-tools Mod I • 45.95 Mod III • 55.95 



We also carry trie lull line of Adventure Intl. Acorn. Big Five, Broderbund. Avalon Hill 
Microsoft, DatasoM, Misosys, Automated Simulations and most other fine soft 
ware at discount prices. See our Nov/Dec 80 US ad for partial listing 



SEND FOR YOUR FREE CATALOG 
No credit cards ai these iow prices Add $2 00 on all COO orders Certified Ch/MO/COD 
shipped immediately Please allow 2 weeks for personal checks For extra fast service 
phone in your COD order. Prices subject to change without notice. New York State 
residents please add appropriate sales tax. 

We Offer Great Values & Prompt Delivery — Why Not Try U$ 7 



146-03 25th Road, Flushing, New York 11354 

Mon-Fri 10 AM-9 PM (21 2) 445-71 24 Sat 10 AM 5 PM 



Circle # 54 




GOSUB 



GOSUB'S MX80/70 FRICTION FEED KIT 

ONLY $49.95 ppd 

The Gosub MX80/70 Friction Feed Kit for the Epson MX80 

printer will give you complete paper control. 

You get easy to follow instructions and all parts necessary 

to give your epson friction feed capabilities. 

No drilling and it installs in about 15 minutes. 

Money back guarantee if not satisfied. 



PLUS: 




Mooter Co re* 



.^J 




S 



USE SINGLE SHEET PAPER 

USE INEXPENSIVE ROLL PAPER 

USE YOUR OWN LETTER HEAD 

FREE PAPER ROLL RACK INCLUDED WITH KIT 

DOES NOT AFFECT PIN-FEED USE 



VISA* 



PRINTERS: EPSON MX80. $515 ppd MX1 00..9850 



STRATEGY SIMULATIONS 

MERCENARY FORCE 

Command a mercenary 
army. Decide the number of 
men, type of weapons, 
armor, air support, medical 
aid and transports. Battle 
the enemy in jungles, 
underwater, on moons and 
In space. (1-4 players) 

TRS-80 L2 16K $16.95 



FOR THE TRS-80 

SPACE MERCHANT 

Build an Empire In the 
stars. Choose your cargo, 
means of shipping, and 
security. Risk pirates, Ion 
storms, engine failure and 
other hazards white you try 
to become a Space 
Merchant. (1-6 players) 

TRS-80 L2/16K $9.95 



KANSAS « S ADD 2% SALES TAX (TRM0 '* * TRADEMARK Of TANDY CORP ) 

ALL PRICES SUBlECT TO CHANCE WITHOUT NOTICE ERIE CATALOG UK)N REQUEST. 

SEND CHECK OR MONEY ORDER TO: 

GOSUB circle # 55 501 E Pawnee, Ste 430 

(316) 265-9858 Wichita, KS 67211 



BASIC application 



510 
515 



INCREMENT MAIN LOOP COUNTER. 

JUMP TO CONCATENATE LINE. 

D$=DD$:DD$= mr :I=K:GOT0570 

REM PROCESS REM STATEMENTS 

IFMID$(C$ / I,3)<> ,, REM"ANDH<>3 
9 THEN560 

525 REM IF REMS ARE NOT TO BE 
REMOVED, THEN THE ENTIRE 
REMARK IS PUT INTO THE 
CONCATENATING VARIABLE, THE 
LOOP COUNTER IS INCREMENTED, 
AND THE REM IS CONCATENATED. 

530 IFGA$="N" THEND$=MID$(C$,I): 
I=L:G0TO570 

535 REM IF REMS ARE TO BE 
REMOVED, THE NEWLY SPACED 
LINE (E$) IS BACK SEARCHED 
FOR A COLON AND ALL FROM THE 
COLON TO THE RIGHT IS 
STRIPPED. IF THE BACKSEARCH 
GOES ALL THE WAY TO THE 
BEGINNING OF THE LINE 

536 'ENTIRE LINE IS A REMARK AND 
THE LINE IS PASSED OVER. 

539 IFH=39 THEN600 

540 F0RII=LEN(E$) T01 STEP-1 :H=AS 
C(MID$(E$,II,1)) 

550 IFH<>58 THENNEXTII:G0T0610: 
ELSEE$=LEFT$<E$,II-1):G0T060G 
555 REM NOW, SEARCH THROUGH THE 
COMMAND WORD LIST. 

560 IFM=2 THENRESTORE:GOT0110 

561 IFMID$CC$,I,4) = ' , THEN" THEND$ 
=" THEN":I=I+3:G0T050 

562 IFMID$CC$,I,4)= ,, ELSE M THENDS 
=" ELSE":I=I+3:G0T050 

563 IFMID$(C$,I,2)="T0"AND(MID$( 
C$, 1-2,5 )<> ,, M0T0R M ANDMID$(C$, 1-3 
,7)<>"REST0RE M ANDMID$<C$,I-1,4)< 
> M ST0P ,, ANDRIGHT$(E$,2)O ,, G0") TH 
END$=" TO": 1=1+1 :GOT050 

565 REM REMOVE EXCESS SPACES. 
570 IFRIGHT$(E$,1)=" "ANDLEFTSCD 
$,1)= M " THEND$=MID$(D$,2) 
575 REM CONCATENATE INTO THE 

NEWLY SPACED LINE. 

E$=E$+D$:PRINTD$; 

REM END OF MAIN LOOP. 
590 NEXTI 

595 REM PRINT NEW LINE TO DISK. 
600 PRINT#2,E$ 
605 REM CHECK FOR END OF FILE 

MARKER AND GO BACK FOR 

ANOTHER LINE OR CLOSE THE 

FILES. 
610 IFE0FC1) THENCL0SE ELSE320 



580 
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Machine language application 



System/command 



Insertion/deletion in large arrays for Models I and III 

James F. Williams 



Sometimes it may become necessary to insert or 
delete elements from large arrays. A prime 
candidate would be a BASIC word processor. In 
fact, most BASIC in-memory file systems need it 
at one time or another. Of course, many file 
designs include linked-pointers and the like, but 
using the BASIC arrays directly is usually much 
simpler. 

The BASIC code needed to accomplish 
insertion/deletion is quite simple, but 
uncomfortably slow in numeric arrays, and down- 
right painful in string arrays. The insert/delete 
from the beginning of very large numeric arrays 
(say in a 48K machine) can take several seconds, 
and the same operation in a very large string 
array with memory approaching capacity could 
take hours or even days to complete. The bugaboo 
in the string array is, of course, the famous "silent 
death" or string space re-allocation routine. 
Inserting or deleting an element requires re- 
definition of all elements above the insert/delete 
element (to make room for the newly inserted 
element, or to get rid of the null element which was 
deleted.) 

The machine language routine included here 
simply does block moves of the pointers (in the 
case of string arrays) or values (in the case of 
numeric arrays), thus avoiding the re-definition 
hassles. This routine can easily accomplish 
insertion/deletion in the largest arrays possible in 
a 48K machine in less than a second (most of that 
time is BASIC overhead setting up and calling the 
routine). 

Also included here is a BASIC program which 
demonstrates the use of the routine. Do not be 
frightened by the complexity of the example. I 
wanted to construct a quasi-realistic example that 
used all type of arrays. The actual use of the 
program is far simpler. 

First, type the machine language module in 
EDTASM and create a system tape. Then load the 
system tape into memory. Execute this with a 
/ENTER. It initially occupies memory starting 
at 7000H, but automatically relocates itself to the 
top of reserved memory and protects itself. It also 
automatically sets the USR branch location to its 
entry point. This means that you do not have to 



have the "POKE 16526, (low order byte): POKE 
16527, (high order byte)" statement in your BASIC 
program. 

To address this routine from BASIC, you need to 
pass more than the one integer value that BASIC 
allows. Therefore, you set up a short integer array 
(4 elements long) and load it with the information 
that the machine language routine needs. It 
expects this format: 

M(0)=VARPTR of the insert/delete element 
M(l)= VARPTR of the last used element 
M(2)=0 (for insert) or 1 (for delete) 
M(3)=variable type flag: 

2 - integer 

3 - string 

4 - single precision 
8 - double precision 

Now, after you load the array with this 
information, call the machine language routine by 
passing the VARPTR of the first element in the 
communication array. This BASIC statement 
accomplishes that: 

X=USR(VARPTR(M(0))) 

The machine language routine first checks to 
see if the insert/delete VARPTR is less than the 
last element. If so, the move takes place and a is 
assigned to the variable X. If not, the VARPTR's 
are invalid and a -1 is returned. You can check this 
from BASIC so that you know if you did 
something wrong. 

If you performed a delete, then the element 
whose VARPTR you stored in M(0) will have been 
written over by the element above it (and all other 
elements above that moved down one). You should 
then subtract one from your counter that keeps up 
with the total number of elements in your array. 

If you performed an insert, then the element 
whose VARPTR you stored in M(0) will be copied 
into the element above it. That element will also be 
moved up one and so on. You could then use your 
BASIC input statement to insert your new element 
into the array. You should also add one to your 
total element count variable. 

The discussion of the insert routine brings up 
one very important precaution: The machine 
language routine does not check to see if any more 
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elements in a given array are dimensioned. This 
means if you force an insertion when no more 
elements are available, the last element will 
overlay some unknown part of memory. The 
results could be fatal. Fortunately, there is an easy 
way to check this from BASIC: simply try to 
address the current highest element + 1 just before 
an insertion. If BASIC responds with a "Bad 
Subscript" error, then you know not to try to 
perform the insertion. This is the function of the 
rather obscure P(M+1)=0 in line 70 of the BASIC 
program. 

Now a note about deleting in string arrays: the 
delete routine does not automatically free string 
space after a deletion has been made. A series of 
several deletions in a row will leave copies of the 
last element in the array elements above the last 
used element. Therefore, to keep from tying up 
unaddressed string space, it is wise to set the 
previously highest element to a null string after a 
deletion. This is the function of the D(M)="" 
statement in line 80 of the BASIC program. 

The use of the VARPTR command deserves one 
comment. Take care that after the machine 
language array is loaded with the VARPTR of 
insert/delete element (line 500, 510, 520, and 530 in 
the BASIC example), a new variable is not 
introduced until after USR command is executed. 
The creation of a new variable can render the old 
VARPTR's incorrect. 

Now that you understand the principles of using 
this routine, let us look for a moment at the 
particulars of the BASIC example. 

This is an inventory program of rather limited 
scope. It can handle a part number of up to 16 
digits, a quantity of up to 32767 (65535 with a little 
modification if you need it), a cost of 6 significant 
figures, and a description. Because you probably 
would not want to build a large file by hand to test 
out the insertion and delete routines, it includes a 
random file generator that fills the arrays. The 
descriptions are especially implausible (6 
repeating letters), but it saves a lot of typing. 

You can do three things with the file: 1) List it 
starting at any line number and exit a list by 
hitting any key, 2) Insert a record into the file at 
any point, and 3) Delete any record from the file. 

Line 10 DIMensions the arrays and does other 
housekeeping chores. This program is set to run in 
16K (without comments in the BASIC program). 

Line 20 builds the random file. 

Line 30-90 are the command loop 

Lines 50-60 are the (L)ist command. 

Line 70 is the (I)nsert command. 

Line 80 is the (D)elete command. 

Lines 500-900 are the Insert-Delete subroutine. 
The file is made of 4 parallel arrays, one for each 
field. So that the records remain parallel, insertion 
or deletion must be done on all four arrays at the 
same element. 

Line 500 sets up the machine language 



communication array for the double precision 
PART NUMBER. 

Line 510, 520, and 530 do the same thing for the 
integer QUANTITY, the single precision COST, 
and the string DESCRIPTION. 

Line 900 is where the actual interface with the 
machine language routine takes place. Note that if 
a -1 is returned from the routine, "ERROR" is 
displayed to indicate that bad parameters were 
passed to it. 

Now for the machine language routine. The 
routine is completely relocatable (no JP's, 
CALL'S, or absolute addresses to itself). The only 
address that must be calculated is the entry point, 
and'is assigned to the USR branch address in line 
420. 

The code from 400-440 is useful if you hate to set 
memory size. The rest of the code is fairly straight 
forward. This routine easily could be combined 
with other machine language routines you need 
for BASIC. You could also do the "conversion to 
DATA statement trick" if you do not like to load 
separate machine language and BASIC 
programs. You would set the original USR branch 
to 7000H, and it would reset it to the entry point of 
the routine after executing. However, it would take 
much longer to load. 

To fully appreciate how much computer time 
this routine can save, add BASIC code to the 
demonstration program to perform an insertion or 
deletion near the beginning of the array. My tests 
showed that a BASIC string array insertion took 
about 10 minutes in this limited 16K application. 
Using the machine language routine, all 4 
insertions took less than one second. As 
indicated in the beginning of this article, if the 
CLEAR and DIM statements are set for a 48K 
application, your computer may become obsolete 
before it finishes. ■ 

BASIC program example 

1 '"INVENTORY" PROGRAM FOR 

INSERT/DELETE DEMO 

2 'BY JAMES F. WILLIAMS 

3 'VARIABLES: 

M LAST ELEMENT NUMBER 

X UTILITY VARIABLE 

Z CURRENT LINE NUMBER 

P() DOUBLE PRECISION: PART NUMBER 

QO INTEGER: QUANTITY 

4 'CO SINGLE PRECISION: COST 

DO STRING: DESCRIPTION 

D STRING INPUT FOR COMMANDS 

5 '*** CLEAR STRING SPACE, SET UP 

ARRAYS, ETC. *** 
10 CLEAR4000:DEFINTM,Q-Z:DEFDBLP:DEFSTR 
D:M=600:DIMM(3),P(M+10),Q(M+10),C(M+1 
0),D(M+10) 
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15 »*** BUILD RANDOM FILE *** 

20 FORX=0TOM:P(X)=RND(10000)*123:Q(X)=R 

NDC10000): 
C(X)=RND(1000)/100:D(X)=STRING$(6,CHR$( 

RND(26)+64)):NEXT 
25 '*** COMMAND LOOP *** 
30 D= ,,,, :INPUT"<L)IST, (I)NSERT, (D)ELET 

E";D 
40 INPUT"LINE #";Z 
45 '*** LIST ROUTINE *** 
50 IFD= ,, L"THENPRINT ,, LINE PART //"/'QUA 

NTITY","COST"^"DESCRIPTION"ELSE70 
60 IFINKEY$O M,, THEN30ELSEPRINTZ;P(Z)„Q( 

Z),C(Z),D(Z);Z=Z+1;IFZ>MTHEN30ELSE60 
65 '*** INSERT ROUTINE *** 
70 IFD="I"THENM(2)=0;P(M+1)=0sG0SUB500: 

IFXO-UHENINPUr'PART #";P(Z) : 
INPUT"QUANTITY"; Q (Z) : INPUT"C0ST"; C (Z) s I 

NPUT"DESCRIPTION"jD(Z) sM=M+1 



75 '*** DELETE ROUTINE *** 

80 IFD= ,, D n THENM(2)=1sGOSUB500sIFX<>"-lTH 

END(M)="";M=M-1 
90 GOT030 

495 "*** INSERT-DELETE PART NUMBER *** 
500 M(0)=VARPTR(P<Z)):M<1)=VARPTR(P,<M)) 

sM(3)=8:GOSUB900 
505 '*** INSERT-DELETE QUANTITY *** 
510 M(Q)=VARPTR(Q(Z)):M(1)=VARPTR«KM)) 

sM(3)=2:G0SUB900 
515 '*** INSERT-DELETE COST *** 
520 M(0)=VARPTR(C(Z))sM(1)=VARPTR(C(M)) 

:M(3)=4;G0SUB900 
525 "*** INSERT-DELETE DESCRIPTION *** 
530 M(0)=VARPTR(D(Z)):M(1)=VARPTR(D(M)) 

:M(3)=3 
895 «*** INTERFACE WITH MACHINE 

LANGUAGE ROUTINE *** 
900 X=USR(VARPTR(M(0))):IFX=-1THENPRINT 

"ERROR"sRETURNELSERETURN 



Side by side listing of 
Insert-delete routine for Models I and III 



7000 

7000 ED5BB140 

7004 1B 

7005 014F00 
7008 216F70 
700B EDB8 
700D EB 
700E 22B140 



00100 

00110 

00120 

00130 

00140 

00150 

00160 

00170 

00180 

00190 

00200 

00210 

00220 

00230 

00240 

00250 

00260 

00270 

00280 

00290 

00300 

00310 

00320 

00330 

00340 

00350 

00360 

00370 

00380 

00390 

00400 



; INSERT-DELETE ROUTINE FOR MODEL I AND MODEL III 

;(C) 1981 BY JAMES F. WILLIAMS 

* 

;THIS MACHINE LANGUAGE ROUTINE IS TO BE USED WITH 

;BASIC PROGRAMS THAT REQUIRE INSERTION OR DELETION 

;IN LARGE ONE DIMENSIONAL ARRAYS. IT IS ESPECIALLY 

;TIME SAVING FOR STRING ARRAYS. 

■ 

;THIS ROUTINE RELOCATES AND PROTECTS ITSELF AT THE 
;T0P OF PROTECTED MEMORY. 

; CONTROL ARRAY (INTEGER) 



RELO 



M(0) = VARPTR OF INSERT-DELETE ELEMENT 
M(1) = VARPTR OF LAST ELEMENT 

(NOT COUNTING BUFFER ELEMENTS 
AT END OF ARRAY) 
M(2) = INSERT FLAG 
1 DELETE FLAG 
M(3) = 2 INTEGER FLAG 

3 STRING FLAG 

4 SINGLE PRECISION FLAG 
8 DOUBLE PRECISION FLAG 



;T0P OF MEM TO DE 

;LESS ONE 

;LEN6TH OF ROUTINE TO BC 

;REAL LAST BYTE TO HL . 

;MOVE 8 EM UP 

;ENTRY -1 TO HL 

|SET NEW TOP OF MEM 



ORG 


7000H 


LD 


DE,(40B1H) 


DEC 


DE 


LD 


BC„LSTB-ENTRY 


LD 


HL,LSTB-1 


LDDR 




EX 


DE„HL 


LD 


(4QB1H),HL 
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7011 23 


00410 


*S3r ft 


INC 


HL 


;ENTRY POINT TO HL 


7012 228E40 


00420 




LD 


(16526), HL 


;SET USR BRANCH 


7015 113200 


00430 




LD 


DE,50 


; CLEAR 50 


7018 CD831E 


00440 




CALL 


1E83H 


;BASIC CLEAR ROUTINE 


701B 01181A 


00450 




LD 


BC,1A18H 


;THIS BASIC RE-ENTRY 


701 E C3AE19 


00460 




JP 


19AEH 


; WORKS FOR MOD I AND III 


7021 CD7F0A 


00470 


ENTRY 


CALL 


0A7FH 


;USR VAR IN HL 


7024 E5 


00480 




PUSH 


HL 


BEGINNING OF MACH„ ARRAY 


7025 DDE1 


00490 




POP 


IX 


; TO IX 


7027 DD5E00 


00500 




LD 


E,(IX+0) 


; INSERT-DELETE ELEMENT 


702A DD5601 


00510 




LD 


D,(IX+1) 


; TO DE 


702D DD6E02 


00520 




LD 


L,(IX+2) 


;LAST ELEMENT 


7030 DD6603 


00530 




LD 


H,(IX+3) 


; TO HL 


7033 DF 


00540 




RST 


18H 


; COMPARE (HL-DE) 


7034 3006 


00550 




JR 


NC,OK 


;0K IF HL>=DE 


7036 21FFFF 


00560 




LD 


HL„-1 


;FOR BAD PARAMETERS 


7039 C39A0A 


00570 


RETURN 


JP 


0A9AH 


;HL TO USR VAR. IN BASIC 


703C E5 


00580 


OK 


PUSH 


HL 




703D ED52 


00590 




SBC 


HL # DE 


;LENGTH OF MOVE 


703F E5 


00600 




PUSH 


HL 




7040 C1 


00610 




POP 


BC 


; TO BC 


7041 E1 


00620 




POP 


HL 


;LAST ELEMENT TO HL 


7042 AF 


00630 




XOR 


A 


;0 A REG 


7043 DDBE04 


00640 




CP 


(IX+4) 


; INSERT-DELETE FLAG 


7046 DD7E06 


00650 




LD 


A,(IX+6) 


;VARIABLE TYPE FLAG 


7049 2811 


00660 




JR 


Z,INSERT 


;INSERT? 


704B D5 


00670 


DELETE 


PUSH 


DE 


;N0, DELETE 


704C E1 


00680 




POP 


HL 


;1ST ELEMENT TO HL 


704D 23 


00690 


VTYPE 


INC 


HL 


;SET HL TO NEXT ELEMENT 


704E 3D 


00700 




DEC 


A 


;LOOP FOR # BYTES IN 


704F 20FC 


00710 




JR 


NZ//TYPE 


; VARIABLE TYPE 


7051 78 


00720 




LD 


A,B 


;IF BC = THEN 


7052 B1 


00730 




OR 


C 


; ALLOW DELETION OF 


7053 2802 


00740 




JR 


Z^GOODRT 


I LAST ELEMENT ONLY 


7055 EDBO 


00750 




LDIR 




;MOVE "EM BACK ONE SET 


7057 210000 


00760 


GOODRT 


LD 


HL,0 


;GOOD FLAG RETURN 


705A 18DD 


00770 




JR 


RETURN 


;T0 BASIC JP 


705C 3D 


00780 


INSERT 


DEC 


A 


;SET HL TO LAST BYTE 


705D 2803 


00790 




JR 


Z,RESET 


; OF LAST ELEMENT 


705F 23 


00800 




INC 


HL 




7060 18FA 


00810 




JR 


INSERT 




7062 DD7E06 


00820 


RESET 


LD 


A,(IX+6) 


;RESET VAR B TYPE 


7065 E5 


00830 




PUSH 


HL 


;LAST BYTE 


7066 D1 


00840 




POP 


DE 


; TO DE 


7067 13 


00850 
00860 


VTYPE2 


INC 


DE 


;SET DE TO NEWLY 
; CREATED ELEMENT 


7068 03 


00870 




INC 


BC 


;ADD ONE ELEMENT LENGTH 


7069 3D 


00880 




DEC 


A 




706A 20FB 


00890 
00900 




JR 


NZ,VTYPE2 


;LOOP FOR # BYTES IN 
; ELEMENT 


706C EDB8 


00910 




LDDR 




;MOVE "EM UP 1 SET 


706E 18E7 


00920 




JR 


GOODRT 


;T0 GOOD RETURN 


7070 00 


00930 


LSTB 


DEFB 





;FOR LENGTH CALC 


7000 


00940 




END 


RELO 




00000 TOTAL 


ERRORS 








■ 
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Product evaluation 



The Corvus hard 
disk system 



The first of a two-part look at a TRS-80 

compatible hard drive.. 

T. R. Dettmann, Associate Editor 



Would you like to have all 
your disks available immediately; 
every one on-line and ready to go 
simply by giving a command to the 
computer? 

It doesn't require a special robot, 
all it takes is a *lot of storage. You 
won't find 10-megabyte floppy disks 
around, but you will find hard disks. 

Corvus Systems (2029 OToole 
Ave., San Jose, California, 95131, 
(408) 946-7700) has put together a 
series of hard disk units that put 
mass storage within the reach of 
almost anyone. 

Radio Shack's Model III with four 
disk drives is a very good buy when 
considering cost per byte of storage. 
It comes in at about 0.342 cents per 
byte. 

Corvus lists a five-megabyte drive 
which gives a cost per byte of 0.088 
cents. That's almost four times 
better in terms of cost per byte than 
doing it with a floppy. 

The idea of cost savings as well as 
an expanding need for disk storage 
space had us looking at hard disk 
systems. We contacted several 
companies for information and 
Corvus was kind enough to put one 
on loan for some testing. 

This issue I'll be taking you 
through a tour of the Corvus disk 
system. Next issue, I'll follow up 
with a report on software available 
to run on the Corvus. That includes 
two special versions of TRSDOS, 
OASIS, and CP/M on the Model II 
and one special version of TRSDOS 
and one on NEWDOS80 for the 
Model I and III. 

The Corvus drive used for this 
evaluation was a 20-megabyte 
drive. It was equipped with the 



Corvus Systems Mirror (Video Tape 
Backup Hardware) and Constella- 
tion Multiplexer (Multiple System 
Hardware). 

The Corvus manual lists the specs 
for the drive as follows: 



Number of platters 


3 


Number of data surfaces 


5 


Tracks per surface 


448 


Data tracks per surface 


380 


Bytes per track 




(Unformatted) 


10240 


Bytes per cylinder 




(Unformatted) 


51400 


Data cylinders 


380 


Bytes per surface 




(Unformatted) 


3.89 MB 


Bytes per drive 




(Unformatted) 


19.6 MB 


Track density 


300 TPI 


Bit density 


5868 BPI 


Rotational speed 


3600 rpm 


Average latency 


8.33 MS 


Single track access time 


10 MS 


Average access time 


50 MS 


Maximum access time 


100 MS 


Heads per surface 


1 


Start/ stop times 


15 sec 



The drives are fixed and in an 
environmentally sealed container. 
It includes low load, low mass 
Winchester type read/write heads 
with a linear voice coil actuator 
system for head positioning. This is 
currently considered the best 
available system, outdating the step 
motor drives used in older disks and 
floppy disks. 

A recirculating, filtered air 
system in a sealed enclosure 
prevents contamination. The drive 
motor is a brushless DC type with 
built-in disk spindle, motor 
electronics and speed control- 
Due to the unit's small size 
(6.375 x 14.50 x 23.00 inches), it can 
fit easily on a Model II system desk 
next to the computer. Because it is 



sealed, there is no scheduled 
maintenance. Despite that, Corvus 
lists a Mean Time Between Failure 
(MTBF) as 10,000 hours of operation 
and Mean Time to Repair (MTR) as 
1/2 hour. 

The system is set up so that up to 
four drives can be connected to one 
computer, giving up to 80- 
megabytes of storage capacity. 

Upon removing the drive from the 
shipping box, we looked over the 
instructions for setting the system 
up. They are readable and 
remarkably simple. After setting a 
few switches, plugging the adapter 
board for the computer, and 
plugging in the power cord, we were 
ready to start operation. 

That 3600 rpm disk really makes a 
whine as it starts up. After a few 
seconds, the noise drops down and 
the ready light comes on. 

We started with the CORDOS 
system for the Model II by Andy 
Frederickson. As it turns out, this is 
the least capable of the systems we 
will be looking at in the follow-up 
article next month, but it was the 
simplest place to start. 

First, we carried out system level 
tests. Setting up the disk as if it were 
a bunch of floppy disk drives or one 
big drive was fun. During system 
level testing the only difficulties 
were all software related. The 
hardware worked magnificently. 

After transferring some programs 
from floppy disks to hard disks, we 
went into BASIC and tried some 
more tests. I was most interested in 
some timing comparisons where a 
program was loaded from a floppy 
first, and then the same program 
was loaded from the hard disk. For a 
22K program, the hard disk was six 
times faster than the floppy. This 
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was not totally unexpected, but nice 
anyway. 

Then I tried some random access 
involving large files and small ones. 
For large files, the difference in time 
to get a record became noticeable, 
though I couldn't measure it for 
small files. 

Up to this point in my testing, I 
haven't run more than one computer 
at a time through the multiplexer, 
nor have I run the mirror backup 
system. We will by next month 
though, when we also look at the 
software. 

By now your biggest question is 
probably: Why bother? A hard disk 
system costs too much to justify. 
Doesn't it? 

The answer to that is both yes and 
no. For the average home user, a 
hard disk sysstem is really about as 
necessary as a third sock per pair. 
It's nice to have, but doesn't get 
much use. 

The home user (unless money is 
unlimited or some other need 
presents itself) can get by very well 
with floppy disks. The needs in that 
kind of environment do not require 
extremely fast access or large 
capacity. 

A business user is another story 
altogether. If you are running a 
business which is beginning to 
outgrow its present computer, you 
can add new life to your system for 
much less than you can buy a 
minicomputer. 

A TRS-80 system with a hard disk 
is a mid-way machine. It's between 
a micro and a mini. It isn't as fast as 
a mini, but 20-megabytes is more 
than some mini's have for storage, 
and 80-megabytes (4 Corvus units) 
will let you store just about 
anything within reason. 

A hard disk isn't a solution to all 
problems. You need to consider the 
fact that you may be limited by 
something other than disk access 
time and storage space. When large 
amounts of data must be printed 
frequently the printer would print a 
line and wait for the floppy disk to 
access. Printing from the hard disk 
was faster, but not much. Now the 
hard disk was faster than the 
printer so it is the printer which goes 
continuously and the disk drive 
waits. 

In the final analysis, the Corvus 
hard disk system is for the 
intermediate size business. It 
provides better, more efficient 
service for someone who is too small 
for a minicomputer but too big for a 
microcomputer floppy based 



system. The Corvus is an efficient, 
cost-effective solution to that 
problem. ■ 




Photo 1 . The Corvus system in operation with a 
Model II. The constellation controller sits atop 
the hard drive. 




Photo 2. 
An inside view of 
the hard drive. 
Note the seal 
around the heads 
and platters. 
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Photo 3. View of 
the constellation 
controller with 
cover removed. 
Note space for up 
to eight unit 
connections. 



Disk Drives 

Disk drives are complicated 
mechanically, but they are 
really quite simple, A disk is 
simply a circular platter like a 
record which is coated with a 
magnetic material. 

When a disk is put into a 
disk drive, a head is moved 
close (or even onto) the disk 
surface. As the disk rotates 
with the head at a fixed 



position, it passes over a 
narrow portion of the surface 
called a track. By varying the 
magnetic field of the head as 
the track passes under it, we 
can store information on it the 
same way we store sound on a 
cassette tape recorder. 

If we move the head by a 
small amount so that its new 
position doesn't interfere with 
the old position, we can store 
more information on the 
second track. By stepping 
back and forth over the disk, 
we can store information on as 
many tracks as the disk can 
hold and the read/write head 
arm can reach. 

Each track on the disk is 
divided into sectors. A sector is 
a logical unit of information 
that is transferred into 
memory at one time. 

If we have more than one 
platter, with one read/write 
head per platter, then the 
read/write heads normally 
work together and the tracks 
directly over one another 
(where the heads are at any 
one time) are grouped together 
and called a cylinder. Some 
people even refer to a single 
platter disk system's track as a 
cylinder. 

With more than one platter, 
the heads are tied together on 
a comb which moves all the 
heads in and out as one unit. 

Latency is the time it takes 
for a disk to come around to a 
piece of data that has been 
requested. The minimum 
latency is always zero (if the 
disk is there when you want it, 
you get the data immediately). 

Maximum latency occurs 
when the information you 
wanted just passed the disk 
head as you called for it. 
Average latency is half the 
maximum. 

Access time is the time it 
takes to move to any record on 
the disk. Minimum access time 
is the time it takes to move the 
head by one track. This is also 
called the single track access 
time. 

We are generally more 
interested in the average and 
maximum access times, since 
they tell us more about the 
response of the system. S 
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What is a Winchester? 

There was a time when I used to assume that 
Winchester Disks were invented by a company 
named Winchester and that there was nothing 
really special about them except that it was 
inconvenient to back them up. Nothing could be 
further from the truth. 

The Winchester disk system arose out of 
technological limitations in what could be called 
the traditional disk pack system. David Kalstrom 
and John Jenkins in a lecture at NCC '80 
described the problems with the old disk systems. 

To achieve high density, the read/ write head 
had to "fly" over the disk as closely as possible to 
the surface. This required more and more loading 
force on the disk head, and led to an increase in 
the number of "head crashes", where the head 
actually touches the disk surface while it is 
rotating. 

In 1973, IBM introduced their Model 3340 drive 
system to alleviate the problem. Originally, the 
design plan specified a dual drive configuration 
with each drive having 30 megabytes of storage. 
Dual drive capacity notation (30-30) lead to the 
name "Winchester" as a pun for the capacity of 
the system. While the drives eventually evolved to 
become 35 and 70 megabyte drives, the name 
stuck, and we now know all drives of this type as 
"Winchester" drives. 

What is so special about them? Kalstrom and 
Jenkins list seven characteristics of Winchester 
technology: 

1. Read/write heads and disks are in a sealed 
enclosure. 

2. Heads come to rest on the surface when the 
disk is not rotating. 

3. The surface of the disk is lubricated to prevent 
damage to the heads or disk. 

4. The head flying height is 20 microinches 
compared to 31 for the older IBM 3330 or 120 for 
the 2311 drives. (This is why the units are sealed.) 

5. The head load pressure is decreased to 10 
grams from 350 on previous drives. 

6. The head assembly is a special "trimaran" 
structure to make it fly better. 

7. The disk surface is coated with only 50 
microinches of magnetic oxide compared to 185 on 
some older drives. 

The result of all these features is that 
Winchester disks are lower in cost than older style 
disks for a given amount of storage. Also, 
Winchester disks are less susceptible to errors, 
more reliable and more suitable for small system 
operation. 

Backup used to be a problem since the only way 
to do it was either inconvenient or unnecessarily 
expensive. With the introduction of the Video 
Tape Recorder, it has now become possible to 
backup a Winchester disk fully on a single video 
tape in as little as ten minutes for a tenmegabyte 
drive. H 





ALL PROGRAMS FOR MODEL 1 and MODEL I II TRS-89's 
ALL PROGRAMS BY JAMES F. WILLIAMS 

ASPTCH 3,2 — » Loads behind Radio Shack's EDITOR/ASSEMBLER 
1.2 and adds many features while taking only a few hundred 
bytes from the original text buffer. Reserve memory, dump 
object code directly to memory and execute, return to BASIC 
wtth EDTASM/ASPTCH and source code protected In high memory, 
verify source dumps, combine EDTASM/ASPTCH for single load, 
and much more. Selectable baud rate for Model I I I and 
complete compatibility with Model I files. For Model I or 
Model III (please specify) 16K and up. Only $17. 

PATQRG,--> Unique file keeping system designed especially for 
Model I and Model III tape users (Model I Stringy Floppy and 
Disk versions also available). Use for Indexing (magazines, 
records, coins, etc.), budget-checkbook, mailing list, and 
almost anything else you can think of. Extremely memory 
efficient with variable length fields and user definable 
delimiters (Including space compression codes and special 
tab characters for left justified fields). Control program 
Is In BASIC for easy user modification, and machine language 
module for high speed sort (i*8K In less than 1 minute), 
search (with "wild card" characters), write, read, verify, 
and merge. Selectable baud rate for Model III and complete 
compatibility with Model I fll»s. Model I and Model III 
(please specify) 16K and up and Stringy Floppy ->$2J. Model 
I Disk version on tape (32K and U8K)->$25. 

0_RGAii--> Play your TRS 80 keyboard In real time as If It 
were a 2 manual, 3 1/3 octave, fully chromatic, electronic 
organ. Play single note melodies or chords. Listen In real 
time by connecting aux cable to amp. One version for Model I 
or Model III UK and up tape-> $12, or 32K Model I or Model 
III Disk version on tape-»$15. 

CPYALt.--* Make back-up copies of almost any L2 format tape 
(BASIC, SYSTEM, EDTASM source, data, and many programs with 
special loaders). Specify Model I or Model III (with 
selectable baud rate), UK and up. A mere $7. 

Send check or money order to Byte Miser Software, 728 West 
Haven Boulevard, Rocky Mount, NC 27801. Circle # 56 
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EMMANUEL B. GARCIA, JR. 
& ASSOCIATES 

203 N WABASH 

CHICAGO, ILLINOIS 6060! 

PHONE (312) 782-9750 



NOW IN ITS THIRD YEAR OF 
SPECIALIZING IN PRODUCTS 
RELATED TO THE TRS-80* 
o Dealer of quality software and hardware— 
we sell only the best, proven items. 

o Sponsor of CHICATRUG— monthly 
learning sessions for TRS-80 users. 

« Publisher of "CHICATRUG News," monthly 
publication for TRS-80 users. 
m M Send for sample issue M M 

. Sponsor of the FORUM-80 of Chicago, a 
24-hour computerized bulletin board. 

. Author of "Pensionmaker," the revolutionary 
defined benefit pension system running on 
the TRS-80 Model I where other pension 
actuaries are using mainframes. 

. Repair facilities (90-day warranty on new 
equipment and 30 days on used). 

Circle # 57 

E.B G. & Associates is NOT affiliated with Tandy Corporation or Radio Shack. 

"TRS-80 is a trademark of Tandy Corporation. 
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Inside the 

FOR . . . NEXT loop 



For all models 



R. C. Bahn 



Programmed repetitive computer operations 
depend upon a programming technique known as 
the 'loop/ A programmed loop consists of control 
statements and operational statements. The 
control statements define the starting and 
stopping rules of the loop. The operational 
statements define the repetitive procedure(s) to be 
performed within the loop. 

The control portion of the loop is largely 
automate^ by the FOR-NEXT statement of the 
BASIC language. The following programs 
illustrate several types of loops, some of which 
utilize FOR-NEXT statements. 

Interactive Programs 

The program listing consists of four 
subprograms which illustrate some principles of 
the programmed 'loop'. The initial section of the 
program is a menu driver which allows the user to 
select one of four options (lines 30-100). The first 
subprogram (130-180) counts from one to one- 
hundred. Although the video output is trivial, the 
few statements of the program illustrate the 
fundamental parts of a 'loop'. These parts are : 
initialization (140), incrementing of a counter 
(150), and testing for exit conditions (170). 

Simple counting is a special case of a finite 
arithmetic series. A finite arithmetic series is a 
progression of numbers of length N with a 
constant difference D between successive terms. A 
finite arithmetic series is usually defined by a first 
term, a constant difference (D) and the number of 
terms (N). Alternately, it could be defined by a first 
term, an approximate last term and a constant 
difference. The latter are the parameters of a 
programmed *loop\ 

The second (190-310) and third (320-420) 
subprograms enable the user to display any finite, 
arithmetic series. The second subprograms (190) 
implements this task without the use of the FOR- 
NEXT statement. Note that the logic of the exit 
decision is more complex (270) but now the loop 
can be made to run in either an ascending or 
descending direction with either integer or 



fractional differences between terms. These two 
programs demonstrate that the FOR-NEXT 
statement is merely an automation of finite 
arithmetic series for the control of a programmed 

'loop'. 

The sum of a collection or set of numbers may be 
computed by first setting a variable equal to zero 
outside a loop (140, 260, 370, 500, 600) and then 
incrementing this variable by the proper value 
during each pass of the loop (150, 280, 390, 530, 
630). Note especially' the appearance of the 
previous list of lines (150-630). These lines do not 
denote mathematical equality. The lines illustrate 
the assignment role of the equal sign (=) in the 
BASIC language. In this sense, each of the 
indicated lines should be interpreted as meaning: 
assign to the new variable, for example N, a value 
which consists of the previous value of N plus the 
indicated increment. * 

In the second and third subprograms (190-420), 
the sum of the generated arithmetic series is found 
by the above method (280, 390). The sum is 
displayed after adding each new term of the series 
(290, 400). The sum of a finite arithmetic series of 
length N may also be computed by the formula: 

= ((FIRST TERM + NTH TERM)/2)*N 




In the fourth subprogram (430-670) the concept 
of the sum is extended to the computation of the 
mean (540) and the standard deviation (650). The 
set of numbers to be studied are entered from the 
keyboard in a loop extending from line 440 to 490. 
The mean or average is a measure of the central 
* tendency of the set of numbers. The standard 
deviation is a measure of a variability or 
dispersion of the set of numbers. Additional 
comments concerning the function of each line of 
the program appear in a latter section. 

Discussion 

Study the construction of the programs 
carefully. You should be able to modify the simple 
counting program so that it can count forwards or 
backwards by any integer difference. 

The outputs of the arithmetic series programs 
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are identical. Compare the programs and 
identify the statements in the second subprogram 
which serve the function of the FOR-NEXT 
statements of the third sub-program. 

The routines for the mean and standard 
deviation are useful programs. The 
SUM of this program could be used to balance the 
checkbook or add the grocery bill. The MEAN 
might be useful in the analysis of your golf scores 
or school grades. The functions of several of the 
loops in the last program can be combined into one 
loop and the standard deviation can be computed 
by an alternate formula. These methods can 
readily be found in any handbook of statisitics. 

Program Documentation of 'loop' 



600 Initialize SUM of squared 

deviations from mean (SSQ) 
610 FOR-NEXT loop to compute 

standard deviation 
620 Compute deviation from mean 
630 Accumulate sum of squared 

deviations (SSQ) 
650 Compute standard deviation 

(root mean square) 
660 Print separating graphics line 
670 Print results 



Program listing for Models I, II & III 



Line # Comment 



10 - 180 

30 

40 - 100 

110 

120 

130 - 180 

140 

150 

160 

170 

190 - 310 

210 - 230 

240 

250 - 260 

270:1 

270:2 

320 - 420 

340 - 360 

370:1 

370:2 
375 

380 - 410 
390 
400 

430 - 670 

440 - 460 
460 

470 - 490 
500 
510 

520 - 570 

530 
540 
550 
560 

580 - 590 



Driver program 

Label 

Menu 

Check limits of input 

Branch to appropriate program 

Simple counting loop routine 

Initialize 

Increment N 

Output results 

Test for end of loop 

Arithmetic series routine 

Input parameters of series 

Label columns of output 

Initialize NUM, N, SUM 

Increment NUM 

Test for end of increasing or 

decreasing series 

FOR-NEXT loop routine 

Input parameters of loop 

Initialize N counter needed for 

auxiliary loop index 

Initialize SUM 

Print column headings 

The loop 

Increment N and SUM 

Output results 

Mean and standard deviation 

routines 

Initial data collection routine 

Reconcile length of list with 

dimensions of X( J) 

Interactive keyboard data entry 

Initialize SUM 

Print column headings 

FOR-NEXT loop to compute SUM 

and MEAN 

Accumulate SUM 

Compute cumulative average 

Print current results 

Hold screen every 12 lines for 

sequential inspection 

Save final SUM and AVERAGE 



5 REM *** 

6 REM *** 
10 CLEAR 500 
15 REM*** 
20 CLS 

30 PRINT " 
ACTIONS 



BASIC INTERACTIONS 

LOOPS BY RCB 

DIM XC100) 
MENU DRIVER 



*** 



*** 



BASIC INTER 



BY R.C.BAHN" 



STATEMENT OP OWNERSHIP. MANAGEMENT AND CIRCULATION 


The80-U.S. Journal 




1 Oct 81 


oil 1 9 1 9J ill) 1 3 


5 


Bimonthly 


AKMIM1LV 

6 


». Annum, wtewnow 
$16.00 


3838 South Warner Street Tacoma, Washington 98409 


3838 South Warner Street Tacoma, Washington 98*09 




Irvin Mike Schmidt 3838 South Warner Street, Tacoma, Washington 98409 


Same as 6 




<mai«.gMn "- " ■ — — i — r ■■) ■■irnf m n Omnium «n«m .. mm iim m n ilh i ui ii. in i ii ■ .. ^ Km. 

»uMMM>»t M pvw«/wa Br ■ nmr-nM* oty»MtwoK it. mm w*. ammma mutt fe* iMAmU (IHm mml — iom?HH4i 






80-Northwest Publishing Inc 


3838 s Warner street, Tacoma, WA 98409 






Irvin M Schmidt. President. Treas 


7574 68th Ave West, Tacoma Wa 98467 




7574 68th Ave West. Tacoma WA 98467 








tuu.*im | com.miuuL.wi aooum 


NflNP 1 
















p «« «or c«a»oi» oumm r-i Suuwi sums m a~*» •«■«. ™. «,«« .- ,-i « 


■ ..«..«, WIUMCCKUL..™, 


SS^KK? 


s'tss'KWjrK 


• '«'""> «"■•»— .— 


17800 


20000 


iJSS.'HTSiSt&'SiS""""' """' 


6399 


7425 


IWHwimw 


7807 


9805 


c re.* ««.««,».!„» ,■_«,— «.„ 


14206 


17250 


'irseisss^^jsssagrssr 


634 


789 


■ »■«—««-.—«—. 


14840 


18039 


" 'jHtssSF 8, -«°~»"» — » 


2392 


1956 


'"""'"""""■"• 




568 


5 


.nut*.....,.., —«._.__....... 


17800 


i 20000 


» 1 cwWy llul lh« ttattRumti mod* by 
ma abova art comet and compMt 


r 1 -in ^iQ^aafciltf^^Xah. r \ ,„_ 



80-U.S. Journal, January, 1982 111 



Beginning BA SIC 



40 PRINT " (COUNTING,ARITHMETIC SE 

RIES,F0R-NEXT L00P,SUMS)" : PRINT : P 
RINT 

50 PRINT " DSIMPLE COUNTING 

LOOP" 

60 PRINT " 2. ARITHMETIC SERIE 

S" 

70 PRINT " 3„)F0R-NEXT LOOP 
80 PRINT " 4.)MEAN,STANDARD DE 

VIATION" 
90 PRINT s PRINT 
100 INPUT "SELECT PROGRAM"; A 
110 IF A < 1 OR A > 4 GOTO 20 
120 ON A GOTO 130, 190, 320, 430 
130 REM*** SIMPLE COUNTING LOOP *** 
140 CLS : N = 
150 N = N + 1 
160 PRINT N; 

170 IF N <> 100 GOTO 150 
180 END 

190 REM*** ARITHMETIC SERIES *** 
200 CLS 

210 INPUT "ENTER BEGINNING NUMBER"; A 
220 INPUT "ENTER APPROXIMATE LAST NUMBE 

R" " B 
230 INPUT "ENTER INCREMENT"; D 
240 CLS : PRINT"INDEX", "VALUE", "SUM" 
250 NUM = A - D 
260 N = : SUM = 
270 NUM = NUM + D s IF (D < AND NUM < 

B) OR (D > AND NUM > B) GOTO 310 
280 N = N + 1 : SUM = SUM + NUM 
290 PRINT N, NUM, SUM 
300 GOTO 270 
310 END 

320 REM *** FQR-NEXT LOOP *** 
330 CLS 

340 INPUT "ENTER BEGINNIMG NUMBER"; A 
350 INPUT "ENTER APPROXIMATE END NUMBER 

""3 
360^ INPUT "ENTER INCREMENT"; D 
370 N = 

375 CLS : PRINT"INDEX", "VALUE", "SUM" 
380 FOR I = A TO B STEP D 
390 N = N + 1 : SUM = SUM + I 
400 PRINT N, I, SUM 
410 NEXT I 
420 END 

430 REM MEAN,STANDARD DEVIATION PRGM 
440 CLS 

450 INPUT "ENTER NUMBER OF VALUES"; N 
460 IF N > 100 GOTO 450 
470 FOR J = 1 TO N 
480 PRINT "ENTER VALUE #"; J; s INPUT X 

(J) 



490 NEXT J 

500 CLS : SUM = 

510 CLS : PRINT "INDEX", "VALUE", "CUM. 

SUM", "CUM.AV" 
520 FOR J = 1 TO N 
530 SUM = SUM + X(J) 
540 AV = SUM/J 
550 PRINT J, X(J), SUM, AV 
560 IF 12 *(INT(J/12>> = J THEN INPUT " 

PRESS ENTER TO CONTINUE"; Z$ 
570 NEXT J 
580 TSUM = SUM 
590 TAV = AV 
600 SSQ = 
610 FOR J = 1 TO N 
620 D = X(J) - TAV 
630 SSQ = SSQ + D * D 
640 NEXT J 
650 SD = SQR(SSQ/N) 
660 PRINT STRINGS (63, "-") 
670 PRINT "SUM="; TSUM, "MEAN="; TAV, " 

STANDARD DEVIATION="; SD 

Changes required for operation on the Color computer. 



30 PRINT " BASIC INTERACT 

IONS":PRINT" BY R C BA 

HN" 

40 PRINT " (COUNTING, ARITHMETI 

C SERIES, SPRINT" FOR-NEXT 

LOOP, SUMS)" : PRINT : PRINT 
50 PRINT "DSIMPLE COUNTING LOO 
pn 

60 PRINT "2„)ARITHMETIC SERIES" 

70 PRINT "3a)F0R-NEXT LOOP 

80 PRINT "4 S )MEAN,STANDARD DEVIA 

TION" 

220 INPUT "ENTER APPROX. LAST NU 

MBER"; B 

240 CLS : PRINT "INDEX";TAB(10); 

"VALUE";TAB(20);"SUM" 

290 PRINT N;TAB(10);NUM;TAB(20); 

SUM 

350 INPUT "ENTER APPR. END NUMBE 

R"; B 

375 CLS : PRINT "INDEX";TAB(10) ; 

"VALUE";TAB(20);"SUM" 

400 PRINT N;TAB(10);I;TAB(20);SU 

M 

510 CLS : PRINT "INDEX VALUE 

CUM. SUM CUM.AV" 
550 PRINT J;TAB(8);X(J);TAB(16); 
SUM;TAB(24);AV 
660 PRINT STRING$(32, "-") 
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COMPUTERS "N" STUFF 

1306 S. 56th Street 

Tacoma, Washington 98408 

(206) 473-4704 

TELEDEX 

This is a sophisticated telephone index system capable of manipulating 
and storing an unlimited number of listings. Uses a fast machine 
language sort for alphabetized lists. Excellent for business or home use. 
Model I/III 32K (2) disks - $24.95 
LIBRARY- 10 
A collection of ten useful and popular programs which may stand 
alone or be used as subroutines in a main program. These were 
chosen for their usefulness and ability to demonstrate certain 
programming techniques on the Color computer. Excellent as an 
educational tool. 

Model I/III or Color 16K/Ext BASIC - $14.95 
LIBRARY-20 
A collection of 20 educational and business applications programs. 
Solve investment problems involving compound interest, help your 
child with math homework problems or administer spelling lessons. 
Many useful programs to solve regular household problems as well. 

Model I/III or Color 16K/Ext BASIC - $19.95 
LIBRARY-50 
An extensive collection of 50 useful, educational and business 
programs designed to aid the student, homeowner, business person 
and educator alike. Includes programs for math, spelling, investment 
analysis, mail list handling and personal applications. SUPER VALUE. 

Model I/III or Color 16K/Ext BASIC - $39.95 
STARFSGHTER from ADVENTURE INTERNATIONAL 
STARFIGHTER is a multiple skill level game with razor sharp graphics 
and sounds that will return its cost a hundredfold in sheer enjoyment. 
The STARFIGHTER package includes two program tapes or one self- 
booting diskette, and an extremely detailed 32 page manual. 

TRS-80 16K Tape for Models I/III - $24.95 
TRS-80 32K Disk for Models I/III - $24.95 

PU'ase add $1 50 per order for postage and handling 
TRS-80 is a trademark of the Tandv Corporation 
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I didn't know that!! 

And you won't either 

unless you subscribe to 

COLOR COMPUTER NEWS 




$9.00 for a 6 issue subscription 

Send to: 

REMarkable Software 

P Box 1192 
Muskegon, MI 49443 
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SCRIPSIT 

LAZYWR9TER 

ELECTRIC PENCIL 



MAKE YOUR WORD PROCESSOR OO 
THE THUMBS YOU BOUGHT IT TO OO 

SALES MANAGERS: keep a customer list 
SECRETARIES: send out customized form letters 
BOOKKEEPERS: prepare reports for the boss 
WRITERS: maintain, organize and sort bibliographies 
BOSSES: create reports and sort data files 

Use YOUR WORDPROCESSOR to create and maintain a mailing list or 
any data base. 

Join that mailing list to a form-letter with a wide range of options. 
Sort your Name S Address files by any key, even when the last name or 
zip code are buried in a line! 

* Sort 1000 "NAMES". Use up to 80 items per name. 

* Insert into the text of a form-letter or report command lines that will 
change the printing format from one line to the next ... in mid 
run . . . EVEN WHEN USING ELECTRIC PENCIL TO CREATE YOUR 
FILES! 

° Use the built-in Wordprocessor to edit a letter, or, CREATE a wholly 
new letter or report — and — store it in a file that is loadable by your 
Wordprocessor. 

* Personalize form letters as you run! Insert "keys" (words or phrases] 
FROM THE MAILING LIST! Automatically insert a name or title or a 
comment. ^ eal n' ed 

* Insert any phrase from the keyboard. . pca'" ie r s d se fv, F?,i've sv 5 " 5 '" 

* STOP automatically for manual sheet feed! • L°" (! L'nie nd * 

* SET space for AUTOMATIC sheet feeds. BeC ° 

* Create subsets of your DATA BASE with powerful SELECT- IF software 

...Visa and Mastercard accepted... 
NOW AVAILABLE FOR S72.33 (for residents of Minnesota add 5% sales tax] 
* • • SPECIFY WHEN ORDERING WHETHER MODEL I OR MODEL III * * * 

Midwest Data Systems 

a business communication company 
5624 Girard Ave. S. Minneapolis, Minnesota 55419 - (612) 866-9022 
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Word Processing? You need a 
CHB1 S IMI^ .■-:.■;.:•":■■■ 




sneaky 

zaps those swaeky- typos 

HEXSPELL shows you the errors right where it finds them, 
then instantly checks your corrections to make sure they ARE 
correct! When HEXSPELL is finished the corrected docu- 
ment is ready for printing. HEXSPELL comes with a 20,000 
word list, with room for 8000 more! Just one keystroke 
teaches HEXSPELL a new word. You can even clear the 
memory and teach HEXSPELL a complete new language. 
Programs, wordlist & manual $69us. Manual only $12. 



Requires 48K TRS-80 Mod I with 2 Drive & TRSDOS. 
Tested against Scrlpslt & Electric Pencil, should work \ 



ilth most word processors. 
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PO. Box 397, Station A 
Vancouver, B.C. Canada V6C 2N2 
Telephone (604) 682-7646 
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We will meet or 
beat any price 
in the U.S.A. on 



Product evaluation 





MICROCOMPUTERS 

In fact, no matter what price 

you see advertised by Micro 
Management, Perry Oil, Pan 
American, or any authorized 
Radio Shack dealer for TRS- 
80 Computers with pure fac- 
tory installed memory and 
full warranty, well beat it! 

ATAR 

MICROCOMPUTERS 

We have consistently offered 
the complete TRS-80, ATARI, 
EPSON, APPLE, and MAXELL 
lines at the best prices in the 
U.S.A. And we offer the best 
delivery from the largest 
inventory in the Northeast. 
If you're looking for the best 
prices in the U.S.A., check 
the others but call Computer 
Discount of America. circie# 6 2 

TRS-80 and Radio Shack are trademarks of Tandy Co. 



CALL TOLL FREE: 
800-526-5313 



Computer 
Discount 

of America 



COMPUTER DISCOUNT OF AMERICA, INC. 
15 Marshall Hill Road. West Milford Mall 
West Milford. New Jersey 07480-2198 
In New Jersey Call 201-728-8080 
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EXATRON, from page 47 
modified and saved on a normal 
Color Computer diskette. Unfortu- 
nately, the process is in one 
direction and the reverse cannot be 
accomplished. We even tried several 
versions of disk track readers with 
no success. Timing signals and 
directory formats are different. 

File Handling 

CGDOS is limited to 1 1 file buffers 
rather than the 15 maximum 



allowed under TRSDOS. There is no 
default number set aside. The 
buffers appear to be held in the 
upper RAM bank and so do not take 
away from user memory. 

The syntax for sequential files is 
similar to other disk systems. The 
commands allowed are: 

OPEN "O", buffer-number, 

filename 
PRINT# buffer-number, 

variable(s) 



Command 



CCMON Command Chart 
Description 



A, ssss-eeee 

B, aaaa 

D, ssss-eeee 

G, aaaa 

L, 

M, aaaa 



Display memory in ASCII from ssss to eeee 

Set breakpoint at aaaa 

Display memory in hex from ssss to eeee 

Go to memory location aaaa 

Load CCDOS 

Modify memory location aaaa 



O, ssss-eeee TO aaaa Move memory (ssss to eeee) to aaaa 

Q, Perform memory test 

S, xx-> ssss-eeee Set memory ssss to eeee to constant xx 

X, * Return to BASIC 

Color computer memory map with the Exatron CCI and DOS 

Hex Decimal 4K 16K 32K CCI Description 
Addresses 



0000 


00000 


X 


X 


X 


X 








X 


X 


X 


X 


System and BASIC stack use 


03FF 


1023 


X 


X 


X 


X 




0400 


1024 


X 


X 


X 


X 








X 


X 


X 


X 


Screen, Graphics & user memory 


0FFF 


4095 


X 


X 


X 


X 


4K system user RAM limit 


1000 


4096 




X 


X 


X 




3FFF 


16383 




X 


X 


X 


16K system user RAM limit 


4000 


16384 






X 


A 




7FFF 


32767 






X 


A 


32K system user RAM limit 


8000 


32768 




X 


X 


X 










X 


X 


X 


Extended BASIC ROM 


9FFF 


40959 




X 


X 


X 




A000 


40960 


X 


X 


X 


X 








X 


X 


X 


X 


Color BASIC ROM 


BFFF 


49151 


X 


X 


X 


X 




cooo 


49152 








A 

A 


CCMON ROM area 


C7FF 


51199 








A 

A 


Upper 16K RAM bank 


C800 


51200 








A 

A 


CCDOS RAM area 


FEFF 65279 








A 




FF00 


65280 


X 


X 


X 


X 


i 






X 


X 


X 


X 


Input/Output area 


FFFF 


65535 


X 


X 


X 


X 
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CAI AUTHORING SYSTEMS 



CLOSE 

CLOSE buffer-number 

OPEN "I", buffer-number, 

filename 
INPUT# buffer-number, 

variable(s) 
LINEINPUT# buffer-number, 

variable^ 

where buffer-number is 1 to 11, 
filename is a legal file name, 
variable(s) is one or more numeric or 
string variables, and variable$ is a 
single string variable. 

Random, or direct access files are 
also similar to those used on the 
other three TRS-80 models. Only 
five file buffers may be used for this 
type of file at any one time. Each 
record will contain 255 characters. 
There is no provision for shorter 
record lengths. The commands 
available are: 

OPEN "R", buffer-number, 
filename 

FIELD buffer-number, length 
AS variable$, . . . 

LSET variable$= 

RSET variable$= 

=MKN$ 

=CVN (variable^) 



PUT# buffer-number, , 
record number 

GET# buffer-number, 
record number 

LOF (buffer-number) 

EOF (buffer-number) 

LOG (buffer-number) 
where buffer-number refers to a file 
buffer, filename is a legal file name, 
record number is from 1 to 255, 
variable$ is a string and record 
number is the record number within 
that file. LOF, EOF and LOG stand 
for length of file, end of file and 
location, respectively. The MKN$ 
and CVN functions are used for 
number conversion in the Color 
Computer which does not have 
separate numeric variable types. 

Conclusions 
The only real reservations we 
have concern those already 
mentioned: diskette density and 
possible incompatibility with Radio 
Shack's operating system. Taken by 
itself as only a disk interface, the 
price is a bit steep. But in light of the 
ROM to disk and Model I to Color 
Computer capabilities, this 
interface is a winner. ■ 



Develop your own 

COiPUTER ASSISTED INSTRUCTION 
With a simple method - 

Producing finished courseware for virtually 
any subject, in less than a day, rather than 
in weeks as with other methods; 

Intermixing text, graphics and multiple- 
choice or fill-in questions 

And Present it with a DELIVERY 
SYSTEM - 

That allows the student to branch to an 
alternate point in the learning process, 

That can interact with the individual 
student; 

That frees you from much of the record 
keeping and drudgery work, allowing you to 
be more creative and attentive to the 
students individual needs 



CAIWARE: 

16K L2 
Cassette 
$42 95 



SUPER CM: 

16K L2 

Cassette 

$6495 



CAIWARE-2D: 

32KTRSDOS 
$125 00 



>*dC* 



If you can 
operate a TRS 80 - 
microcomputer then 
you can produce a 
CAIWARE lesson in 
less than one day 



for the TRS-80 4 

Modal 1 or 111 

{Disk/Tape)— 

Circle # 63 

Order from 

MicroGnome. 

5843 Montgomery Rd 

Elkndge MD 21227(301)796-4165 

Add $2 for shipping and handling in 

the U S and 5 percent tax for MD residents 



1 

earn to \ 



NO PROGRAMMING 
REQUIRED 



A trademark of 
Tandy Corp 




MODEL II SOFTWARE 
26-4703 Cobol Development. $270.00 

26-4540 Stat. Analysis. . $90.00 

26-4503 Payroll $360.00 

26-4501 General Ledger $180.00 

26-4505 Accts. Payable $270.00 

26-4504 Accts. Receivable. . .$270.00 

26-4507 Mail List II $108.00 

26-4508 Medical Off. Syst $675.00 

26-4560 Westlaw $225.00 

26-4530 Scripsit $265.00 

26-4531 Scripsit 2.0 $360.00 

26-4512 Profile II $162.00 

26-451 1 Visicalc $265.00 



COMPLETE LINE 

OF TUS-SO 

MODEL I! & III 

COLOR COMPUTER 

POCKET COMPUTER 




MODEL 111 SOFTWARE 

26 1562 Profile $72.00 

26-1592 Profile III Plus . $180.00 

261 566 Visicalc $83.00 

26-1 563 Scripsit $79.00 

26-1590 Super Scripsit $180.00 

26-1591 Scripsit Dictionary. . .$135.00 

26-1580 Project Manager $90.00 

26-1581 Personnel Manager. .$90.00 

26-1552 General Ledger $90.00 

26-1558 Business Mail List $90.00 

26-1 584 Check Writer-80 $90.00 

26-2203 Cobol $180.00 

26-2204 Compiler Basic $135.00 



ORDEH TOLL FREE 



WE CARRY THE EULL 
LINE OF TR$-80 s s 



WRITE FOR FREE CATALOG 

MICRO MANAGEMENT 
SYSTEMS, INC. 

DEPT. NO. ^ 

11SC SECOND AVE. S.W. 

.CAIRO, GA. 31728 

USA 800-841-0860 

GA. 912-377-7120 



COMPLETE LINE 

OF READY TO RUN 

TRS-80 

COLOR 

COMPUTER PAKS 

Circle # 64 
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LYINOCO 

TRS-80 j 

Modem " 




LYNX lealurei 

* Carppahfctc ttttf toin Uodet l i-rtd 1 1 

* HO topa* Jic Cure rusts -squired 

■ Qn*-*«r w«rr«nly 

* Auto d.ai AulO *r*l *t» 

* Active- dea* Di-ed* ar<j zcmlrgJ t^yi 

* Half Of luti duplfia ir#MI**t *dfd PfrTtfllM paily and 

slop but 

* 0*al kotn phorHi h-ty board or memory 

* Worki**i*i o-f MrtlttogJ Mjtfei ■ I -I AS-/3J c*'d 

■ Can be piat+Q Or* e>lh#r 5 -de q' Mode* r 1 1 

■ Nfl loo!* n#*4td iD iniralt 



Order 



HIGH TECHNO LOGY AT AFFORDABLE PRICES 




CAil TOLL FREI 
MM 1M J»©0" 



12 Jokmon Street MilFord NH 03055 1 MO Ml *T»7 
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GRAPHICS EDITOR m** 
AND PROGRAMMER ,/in 

S3EAP) Part text editor, drawing utility, and 
^ASIC program creator beat describes GEAP. 
GEAP's command library allows creation of 
intricate screen images and formats When 
finished, GEAP will construct m BASIC pro- 
gram that will recreate the Image yon have 

drawn. The program created requires no spe- 
cial operating system. Just type RUN. Program 
writing options allow ASCII compatible (hand 
editable, also required by some compilers), 
compressed or String format, Using GEAP's 

commands require* no knowledge of BASIC 
programming* However, GEAP's features 
make it the professionals choice. 

GEAP's facilities include over 40 com- 

mands. GEAP will magnify, rotate, ehrink, 

or move figures to other locations. You may 
move all or selected portions of the screen, 
create one composite drawing from 2 or 
more drawing*, reverse graphic pixels, shift 
between graphics, alphangmerlcs, create 
your own graphic characters and much more. 
Most other Basic program drawings may be 
edited to GEAP's Basic program format. Fu- 
ture expansion module* are planned or you 
can design your own now. Model I, 16K min, 
Lll. Disk, arid stringy are supported. Cassette 
and 20 page manual S25 99 / Manual only 
2,99 - CA. add 6% • Dealer inquiries invited. 
J F CONSULTING -74355 BUTTONWOOD- 

PALM DESERT, CA 92260 

■««n«MMmNmm««MHmmjmmi 






Wall : 
Software 



• PORTFOLIO MANAGEMENT SYSTEMS 
« OPTION PRICE ANALYSIS PROGRAMS 

(volatility, lime premium, Biack-Scrtoles) 

• STOCK PRICE TREND ANALYSIS 
(volume, price, direction, screens) 

• FUNDAMENTAL & TECHNICAL ANALYSIS 
(P/£, yield, dividend performance etc ) 

• ON BALANCE VOLUME -Granville 

« COMMODITIES. BONOS, WARRANTS 

• COMPUTER INVESTOR NEWSLETTER AVAILABLE 
Over 100 easy-io-use professional investment 
analysis programs similar to those used by the large 
Investment houses now made affordable. For Apple, 
TRS-80, ATARI. PET, CP/M and Others. 

SEND $3 TODAY FOR OUR CATALOG 



wall Street Software 
332 E. 30th Street 
New York. NY 10016 

Your System 

Name 



Order Toll Free 

1-800-528-6050, 

ext 1592 

_ □ No Syslem 



Address 



Clty/State/Zip 



K 



Computer Services Corporation ol America 
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TOTAL 

DISKETTE 

BACKUP 




DO NOT TAKE UNNECESSARY RISKS 
WITH YOUR SOFTWARE. 

If your diskette software library it not com- 
pletely backed up r or, if you are wasting disk- 
ettes by making backup copies of all your 
diskettes, your problem is solved! Using 
QUMPLOAD, the total contents of your disk- 
ettes can be safely dumped to tape. The hi- 
sp^ed tape option allows six 35 or 40 track 
diskettes to fit on one C60 casette, 

* TRS*80 Model 1 16K ■ 48 K 

» TRSDOS or NEWDQS80 Compatible 

• May be used to back-up TRSDOS, VTOS 
4.0, NEWDOS, MICRODOS, or data 
disks + (Single Density) 

— $16.95 on Cassette — £19.95 on Diskette 

PI js $1.00 handling (Indiana Res. add 4% tax] 

TOLL FREE 24 HR. ORDERING SERVICE 

1-800-525-9391 (Ext. 509) (Except Colo J 

1-800-332-9259 (Ext. 509) (Colo. Residents} 

or Mail Check or Money Order To: 
COMPLETE COMPUTER SERVICES 
8188 HEATHER DRIVE 'J 
NEWBURGH, INDIANA 47030 



IEEE-488 TO TRS-80* INTERFACE 

Everything needed to add powerful 
BASIC GPIB-488 controller capability 
to TRS-80 Model 1 or 3, Level 2 or 
DOS with a minimum of 16K. 
488-80B 

For Model 1 
Operation 



JlL 



inimum ot it 





468-80C 

For Model 3 

Operation 

Model 488-80B or 488-80C Price: $325. 

+ shipping, insurance & tax 
WHEN ORDERING SPECIFY DISK OR TAPE 

SCIENTIFIC ENGINEERING 

LABORATORIES 

11 Neil Drive ♦ Old Bethpage, NY 11804 
Telephone: (516) 694*3205 

'Trademark of Tandy Corp. 
There is no affiliation between Scientific 
Engineering Laboratories and Tandy Corp. or 
Radio Shack. 
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DOSPLUS 
OWNERS 




Our brand-new expanded 

user's manual will provide 

you with greater in-depth 

information on all 

versions of DOSPLUS. Over 

160 pages of 
documentation, yours for 
only $29.95. To order, call 

1-800-348-8S58. 
MasterCard and VISA 

accepted. 



ADVANCED 

.OPERATING 

SYSTEMS 

450 St. John Rd. 
Michigan City, Indiana 46360 
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TRS-80 MODEL I™ 
GOLDPLUG-80 

Eliminate disk re-boots and data 

loss due to poor contact problems 
at card edge connectors. The 
GOLD PLUG • 80 solders to the 
board card edge. Use your ex- 
isting cables. 

CPU/keyboard to 

expansion interface $18.95 

Expansion interface to disk, prin- 
ter, RS232, screen printer 

(specify) $9.95 ea 

Full set, six connectors. . . $54.95 



VfSA 



ma&ler l*W 



EAP COMPANY 

P.O. Box 14, Keller, TX 76248 

{817)498-4242 

*TRS-8Q is a trademark of 

Tandy Corp. 
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DENTAL COMPUTER 
NEWSLETTER 

E.J. Neiburger, 

D.D.S., Editor 

1000 North Ave 

Waukegan, IL 60085 

The DCN is an international 
group of dentists, physicians 
and office management people 
who have interests in office 
computers. Though the 
emphasis is on micro- 
computers, many members 
use minis. We cater to all 
makes and brand names. 
Annual membership dues 
$12.00. Membership runs 
from January to January. If 
you join mid-year, we will 
supply you with the years back 
issues. 



™ 



OKI DATA Microline 82 A 

Serial i Dot Matrix Printer 






1JU 




PAID 



$479.88 
Order#2A1 



80 Column 



Mic r &\no prmEft'f jr t? he*\\nq the rjuafrty s^rvjan^ by m# 
etrttf* mdu»irv Bmrs or* a tas* aiumtfium hue and anve*i 
by hwi rnnio*| ih*j* rugged m*vk w* r^n, 44 gay wrttr no 
emit cydf hnd#forH In* I***? urranty «4Lwalem id 
200 000 &0G ( **iai.3er* r* unm&ctwl *i t*» rfKluftlfy 

■ 

Standard Features 

• Ouerares wit* "MS ft ' APPLE' OttWnl # Plwi papa' up Id * pan* 

• 135 columns ml'i i-riiievi ch*ra<)*ri * F <J* 96 CtWUCltf A&GII mH 

• Gr apJuc 5 * Doutu^ w^th rftaratwt 

HIGH TECHNOLCX5V AT AFFORDABLE PRICES 



CJU.L tou nt» 

1 toe tu i»oo 



^2 Johnson Street Milford NH 03055 1 tOO 4*4 e 787 
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Architectural 
Engineering 

1 . Structural Timber Design- 
eight loading conditions for any 
lumber species. Also included, 
plywood web beam design. 

2. Concrete Design— beam 
design, basement wall design, 
slabs and retaining walls. 

For TRS-80 Model I or III 

' Cassette or ESF 

$95.00 each program 

$ 1 50. 00 for two 

ERIC CLOUGH 

Winlaw, B.C. 
Canada V09 2J0 
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STRINGY FLOPPY 
GENERAL LEDGER 



Works like BISK General Ledger 

FEATURES: 

I UP TO 100 ACCOUNTS!! 

■ UNLIMITED entries per 
Accounting Period 

PRINTS; 

I Journal k Ledger Updates 

■ Chart of Accounts 

■ Trial Balance 

■ Incoie Statement 

■ Balance Sheet 

Requires 16K Level II, Printer, 

and Stringy Floppy 

Only $49.95 frot: 

Maine Data & Financial 

Svstefts Inc. 

SiR. 79, Box 103 

Or land, 'HE 04472 

Stringy Floppy is a tradeiark 

of the Exatron Corporation 




3 NEW PROGRAMS for TRS-80 
for Model I or III 16K 

STOCK CHART G R APH ER: Create your own 
bar charts of any stock's trading prices on daily, 
weekly or monthly basis for up to GO dates. Chart 
also shows volume, moving average and price 
momentum. $24.% 

STAR SEARCH ASTRONOMY GUIDE: 

Obtain an instant map of the skies overhead for 
the date and time you enter. Over 400 deep sky 
objects displayed with scientific data. $19.95 

THE RECORD KEEPER: An all purpose filing 
system for birthdays, anniversaries and more. 
Holds up to 100 records of 57 characters each and 
includes keyword search by any of 3 variable 
length fields. $14.95 

Send check or money order to: 

Soft byte Computing 

Box 217 

Watlingford, Conn. 06492 

:e com < 
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FRICTION FEED FOR YOUR EPSON 

MX 70- MX 80 

•TO-^O anc Wt-BO arm Tirade • J br\s of EPSCW, Inc. 
***** *************** ##***'**•#•***** **»*####**# 

+ Converts your printer for friction 
feed of SINGLE SHEETS or ROLL 
PAPER. 

+ Snap-on Installation (ail you 

need is a screwdriver, no soldering! 
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MAGAZINE SAMPLES 
FREE listing of over 150 
magazines offering a 
sample copy - 50<P per 
sample. Send stamped 
self-addressed #10 
envelope to: 



PUBLISHERS 
EXCHANGE 

PO Box 1368, Dept 278 

Plainfield, New Jersey 
07060 



+ Tractor feed remains undisturbed. 
+ Proven rel iabil ity. . -■■ 



A 



+ Available NOW! ~- T 

+< Only »39, 95 (add $1.50 for "postal 

:? AT T?F ACTION a" ARAN TEED OK V01R MNSFv HaCK 




mi**#+ H*j"ir 




VISA 4 Master Card Accepted 
(804) 826-8908 



MICRO-GRIP, Ltd. 
P.O. BOX 873 
LAFB, VA 23665 
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Soft-R Software 



PLA YPEN 



A new, exciting game for couples. 
Put new 'Z' in your lifei You won't 
get tired of this one. 

R.S. 2.3 or NEWDOS 80 Tape 

Tape $18,95 

Disk $17.95 

Model I 

Paneltech, LTD 
P.O. Box 218070 Dept. C 
Houston, TX 77218-0070 

Visa/MC Welcome 






PLASTIC TRS-80 INFORMATION SHEET 

Stop putting all that information about addr esses h 
ROM calls, graphic characters, and scan routines 
on your wall. Use this bright, durable, easy to find 
yellow plastic sheet Save time? (8V2 a 11" two 
sided) $3.50 ea 

NEW DISK LABELS— Get Organized! 

Utilize your disk directory program: number your 
disks and save timef 105 Blue Ink Labels that peel 
off. $2.50 per pack, 

m 

BEHAVIOR MODIFICATION MGT. 

Written by a Behavioral Psychologist. System 
consists of 3 interacting programs. Will keep 
track of 47 different behavior modification 
program^ peT disk. Will output lo a line-printer 
progress report. Requires Model I 48K , 2 drives, 
and GSF by Racet. $35 00 

Send check or MO to: 

Psycomp Software 

P.O. Box 658 

Lapeer, Michigan 48446 

(313) 653-5954 

Dealer Inquiries Welcome 



M 
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C. Itoh Pro Writer tetter quality 
dot matrix printer: Pica & Elite 
fonts, proportional, enhanced, 
compressed and expanded 
print modes. ..,$599.00 
P/h $12.50 continental U.S. 

Heating / Ventilation / Air 

conditioning / electrical / 

plumbing, Union payroll, 

covers 

•Out of area work rate changes 

•Four different job costing 

categories. 
•Very extensive system, prints 

payroll checks. 
•Menu driven. 
Model I or IIL...$149.00 

Hill Engineering 

3350 Harvard Street 

Santa Ana, CA 92704 

(714) 549-7620 
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ALADDIN 

Software 

1001 Colfax Street 

Danville, 1L 61832 

(Model I/1II 16K tape) 
* SEND FOR FREE CATALOG * 

BARGAIN PACK I (5 SOUND 
programs) including Hangman-Space 
Lasers-Roulette-Moon Lander 8t Golf 
(all programs include graphics, $19,95 
MUSIC COMPOSER - purs songs into 
your computer the easy way- Uses 
graphics of staff for input. Great for 
learning music also. $14.95 

BIORHYTHM CHARTS - for both 
printer and screen, $9.95 

WE PUT MAGIC IN YOUR 
COMPUTER 




Circle # 75 



Circle # 74 



Circle # 66 




80-U.S. Journal, January, 1982 117 



Reviews. 




P.O. Box 915 

10,5 W. Plant Street 

Winter Garden, FL 32787 

305-877-2830 (Store) 

305-877-2829 (BBS) 

AUTHORIZED SOUTH-EASTERN REGION SERVICE 
CENTER FOR A.M. ELECTRONICS 



48K 2-Disk Mod. Ill $1825 
+ Free DOSPLUS 3.3 




A.M. ELECTRONICS 

* • Model III 1st 40 TK Drive Kit AM-I $375.00 

5V 4 " BARE DRIVES 

40 TK Teac $240.00 

40 TK MP I 51 $250.00 



80 TK Teac 
80 TK MPI 91 



$325.00 
$345.00 



5V4" COMPLETE DRIVES 

Add $45.00 to Bare Drive price. 

PRINTERS 

Okidata 82A $525, 83A $725, 84 $1100 

VIDEO SCREEN 
$9.95 specify model 



5% " FLOPPY DRIVE REPAIR 

Pertec a MPI • Tandon ® Radio Shack 

Single Side $35 plus parts 
Add $3.00 postage & handling 

Warranty: 30 days on parts 
Usually 24 Hour Turn-Around 



OPEN 3-9 pm (EST) MON—FRB 
Technician available after 5 PM. 

* Uses ASG memory, disk drives and AM Electronics components. 
** All retrofit packages include circuitry, power supplies, mounting brackets, 
cables and everything required to turn your Model III into a reliable, disk- 
based system. 100% compatible with Radio Shack hardware. 

Call us with an order. W@ have a connection - 80 

(BBS) on line for your use circle #87 

Prices subject to change without notice. 



Tuesday Morning Quarterback 

Automated Simulations 

P.O. Box 4247 

1988 Leghorn Street 

Mt. View, CA 94040 

1-800-824-7888 

$29.95 Disk only 48K + $2.00 

s/h 

Machines: Model I and III 

Attention all computer widows! If 

your computer-nut husband 

happens to also be a football addict, 

DO NOT even allow him to see 

Tuesday Morning Quarterback 

from Automated Simulations. You 

may never see him again. This 

latest offering from the dynamic 

software company that brought you 

such classics as Invasion Orion, 

Datestones of Ryn, and Temple of 

Apshai, is a masterpiece of 

ingenuity. It is more than a game, it 

is an actual simulation of each of the 

teams in both pro leagues. You can 

pit the Seahawks against the 

Cowboys or the Steelers against the 

Saints, or any possible combination 

of all the pro teams. 

Tuesday Morning Quarterback 
(TMQ) is only available for those of 
you fortunate enough to own 48K 
with a disk drive. I can see you now, 
trying to talk Mama into that 
expansion interface and drive. 
There are several modules on the 
disk and the program uses overlays 
and the limited chaining 
capabilities of TRSDOS in order to 
stay within the bounds of the 
memory. In other words, this is a 
very complex, detailed piece of 
software that occupies 35446 bytes 
of RAM. It is complete with a full 
range of sound effects, such as 
penalty flags, end of play signals, 
and even a half-time marching 
band. The graphics are quite clever, 
with 3 dimensional views of the 
playing field when punting or 
attempting a field goal. During 
regular play, the player is given an 
aerial view of the field. The players 
are represented with X's and O's on 
the field and are lined up in 
standard formations. The players 
do not move in real time; however, 
each play is described in detail by 
messages that flash on the screen. 

Examples of the messages are: 
"The ball is snapped", "Johnson 
fades back .for the pass", "The press 
is on", "Incomplete - meant for 
Smith", "Interception by Perry", 
"Man down on the play", "Injury - 
sprained ankle". The action is quite 
realistic, with each player choosing 
a team in either the NFL or AFL. A 



118 80-U.S. Journal, January, 1982 





■TM 

to-Zte. DISK EDITOR/ASSEMBLER; 

Modular Assembler Language development 
_. system includes full screen text editor, multi- 
pass assembler, and ebjeci module linker. 
Allows 3 character symbols and source *IJe 
chaining/nesting with 'INCLUDE cmd. Full 
support lor relocation and gicbai symbols. 



XBUG: DEBUGGING TOOL & MONITOR: 



Our professional quality software 
development tools let you program 
your TRS-80 with more ease and 
power than you ever imagined possi- 
ble. Programming will become a 
pleasure when you use our full 
screen editors. These editors are not 
just patched up word processors. 
They have been specially designed to 
enhance the BASIC and ASSEMBLER 
programming languages. Our 
assemblers provide full screen option 
menus to relieve you of the burden of 
remembering command names. Com- 
bine user oriented features like this 
with the finest and most extensive 
documentation in the industry and 
you will see why programming a 
TRS-80 is now better than ever. 



Upgrades 
Mod 3 C; 
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single player may also play against 
the computer. During initialization, 
a menu of 30 teams is displayed, and 
the choice is given to each player. 
Each team's player's names are 
contained in a disk file along with 
the characteristics of the team. The 
46 page rule book contains 
information about each team's 
strengths and weaknesses, their 
general rating, tips on how to 
simulate the real team, and 
strategies for defeating the team. 

Several variables determine the 
outcome of a game. First, the team 
characteristics determine how 
strong a particular team is in 
running, passing, defense, and 
offense. Second, on every play, the 
defensive player first discreetly 
chooses one of six defensive lineups, 
such as Blitz, Normal, Goal Line, or 
Butkus. Next, the offensive player 
chooses one of the 16 offensive 
plays, such as the Bomb, Draw, 
Sweep, Quarterback Sneak, Trick 
Play, Pitchout, Short Curl, etc. The 
outcome of the play is largely 
determined by how well you call the 
shots. Third, an intangible force 
known as "momentum" determines 
how a team will fare on a particular 



play. A small marker is displayed on 
the score board indicating the 
game's momentum. When a team is 
doing well, the momentum shifts to 
them, and makes it easier for them 
to complete passes, make field goals, 
first downs, and long gains. 

The actual play is quite detailed, 
with every phase of a real football 
game simulated. The captains toss a 
coin, which really goes up and 
comes back down on the screen. The 
kickoff is shown as a 3D view 
looking down field. The ball is 
displayed in a high arc as it travels 
down field and lands in enemy 
territory. The same view is shown 
when attempting a field goal. The 
ball actually sails over the goal 
posts in real time. This feature is 
most entertaining. To aim the kick, 
a moving dot must be lined up with 
the ball and the goal post, and the 
space bar pressed at the right 
moment. This takes a lot of 
coordination, especially when 
kicking out at 40 yards. Penalties 
are called, as in a real game, mostly 
on key plays. The captain on the 
receiving end of the penalty is given 
the option to accept or decline the 
penalty. TMQ even displays the 



conditions of an accepted penalty 
before any choice is asked for. 

Fumbles are taken care of in a 
unique manner. When a fumble 
occurs, each player must scramble 
to press a certain key first in order to 
recover the football. The official 
rules state that "it is not cricket to 
rest your finger any closer to the R 
key than 3 and 3/4 inches." 
Statistics are kept, and can 
be displayed at any time during the 
game. Injured players are 
automatically removed from the 
game and replacements are called in 
as needed from a pool of standbys. 
Time outs are allowed during the 
game and a real time clock displays 
the time remaining. To keep the 
game short, each player is allowed 
only a total of 30 seconds to 
determine which play they are 
going to choose. A penalty of 5 yards 
is assessed if this limit is exceeded. 
A half-time show, complete with 
The University of Texas marching 
Dots is provided. Sorry guys, it 
doesn't even come close to the real 
thing. 

Other features include provisions 
for updating team rosters and 
substitutes so that the teams will 
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$7.95 Foreign Airmail (U.S. Funds) 

Postpaid mailed to you 
FIRST CLASS 

United States Only 

Send To: 
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Tacoma, Washington 98409 
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always stay current. Advanced 
programmers could also possibly 
change the team ratings to 
correspond more closely to the 
actual team performance by 
updating the disk files of each team. 
A kicking practice is provided for 
developing your skills as a punter. 
The documentation has to be the 
best in the industry for this type of 
program. It is done in color, with 
excellent art work, on quality paper. 
It is easily understood, with an 
introduction to football, how to play 
the game, team rosters, play calling, 
and a very thorough glossary of 
football terms for non-jocks. 

Overall, TMQ deserves very high 
marks. This is one of the most 
requested games around our house. 
It is extremely well thought out and 
highly structured; but, more than 
that, it is a lot of fun to play, even if 
football is not your passion. 

Jim Klaproth 

Space War 

Acorn Software Products 

634 North Carolina Ave. S.E. 

Washington, D.C. 20003 

Model I and III tape 

$9.95 

Machines: 

Model I & III, 16K and up 

The original spacewar, one of the 

first computer games, was 

developed at MIT long before the 

TRS-80 was a gleam in Tandy's 

corporate eye. It was the first with 

high-resolution graphics (about IK 

by IK points). It became a lasting 

favorite because it gave an even 

challenge between two players 

involving action and strategy. 

Spacewar is a two-player game in 
a cat and mouse chase trying to 
shoot each other. Four keys are 
assigned to each player to rotate, 
thrust, fire, and enter the respective 
player's ship into hyperspace. While 
the TRS-80 does not have the 
high resolution graphics, the game 
is more than challenging enough to 
make up for this deficiency. In 
addition to each other, the players 
must also worry about a star in the 
center of the screen around which 
the mages revolve. Because of the 
star's mass, it has a gravity field 
which can easily pull a ship into its 
furnace, giving the opponent a 
point. On the other side of the coin, 
the gravity field makes an orbit 
possible and, incidentaly, very 
difficult to hit the ship. 

The game has five preset 
universes or modes: no gravity or 
inertia gives the players an 



opportunity to learn their controls; 
inertia (the ships "float") and 
edgebounce where the players learn 
to work with thrust but must take 
into account screen edgebounce); in 
the third mode, gravity is 
introduced to the conditions of the 
second mode; in the fourth universe, 
edgebounce is eliminated and the 
screen "wraps around"; finally 
edgebounce is back and, as an 
additional challenge, the gravity 
field of the star is reversed 
introducing the effects of 
antigravity. When the universe has 
edgebounce, missiles don't bounce 
or wrap around. With no 
edgebounce, missiles wrap around 
as the ships do and are not 
destroyed unless they hit a ship or 
the central star. Missiles travel at a 
relative speed to the ship and it is 
possible through acceleration to run 
into your own missile and be 
destroyed. 

Spacewar is played in real time 
against the clock. The players 
choose game and missile speed and 
universe mode and then battle it out 
until time is »p. Whoever 
accumulates the most points is the 
winner. 

Spacewar is an enjoyable game. It 
is supplied on 16K tape and, like all 
Acorn products, it accompanied by 
good, easy to understand 
documentation. 

Pat Perez 

BASIC Faster and Better & 
Other Mysteries by Lewis 
Rosenfelder 
IJG Inc. 
1260 West Foothill Blvd., 
Upland, CA 91786 
(714) 946-5805 
288 pages. Soft Cover. 
$29.95 + $2.00 shipping 
For Models I, II, and III 
This new book from IJG may 
very easily become the most popular 
book in the history of the TRS-80. It 
is, as the tag line on the cover reads, 
"A guided tour of BASIC 
programming tricks and techni- 
ques". The book is well-written and 
has a lot of programming examples. 
Two disks, containing much of this 
material, are available for purchase 
from IJG. 

Most of the book is for disk users 
with the Extended Disk BASIC. 
Tape and stringy floppy users can 
glean a great deal from this book if 
they are willing to spend the time to 
program around certain disk-only 
commands. 
Model II owners are not left out 
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either. References to notes 
contained in chapter 15 constantly 
flag appropriate routines 
throughout the book. Even with 
TRSDOS 2.0a, a Model II user will 
be able to use almost every routine 
in the book. 

The Pocket computer receives no 
attention and the machine 
language routines will not work on 
the 6809-based Color computer. 
However, some of the techniques 
and tricks can be adapted. 
Features 

After a short introduction, there 
are four chapters on what could be 
called standard concepts and 
routines. These are needed for the 
rest of the book. You may not agree 
with Lewis Rosenfelder's variable 
"standards", but, as he admits, they 
are arbitrary and do work for him. If 
you aren't a time-jaded programmer 
from the early days of computing, 
then they just might work for you, 
too. 

One of the areas most 
programmers ignore in BASIC is 
the Function Definition capabilities 
of BASIC. Rosenfelder addresses 
this area throughout the book 
including packing some pretty 



fancy IF...THEN logic into a single 
function call. 

The real power of the book, 
though, comes from machine 
langauge routines and USR calls. 
Although you don't need them, Bill 
Barden's TRS-80 Assembly 
Language Programming book from 
Radio Shack and an Editor/ 
Assembler are recommended 
companions. Because most of the 
book deals with diskette use, one of 
the disk-based Editor/ Assembler is 
appropriate. With these tools and 
some spare time, one is ready to get 
the most from this book. 

Rosenfelder's "Magic Strings" 
centers on Leo Christopherson's 
forte: string packing a machine 
language routine and then 
executing the string. "Magic 
Arrays" covers a concept which is 
similar: load an integer array with 
a machine language routine to be 
executed. 

The final section in this 
"standard concepts and routines" 
portion of the book covers memory 
use and concepts. Resetting memory 
size from BASIC is explained, along 
with reserving low memory, 
partially restoring data statements 



(moving the pointer to some point in 
the DATA portion of the program), 
and an active variable analyzer. 

Articles explaining these 
concepts have appeared in the past 
in various computer journals, but 
here, at long last, one book brings 
these separate ideas together. It 
makes for heavy reading — 
something which won't be easily 
consumed in one or two sittings. 

The next eleven chapters and the 
eleven appendices cover such things 
as BASIC overlays to save memory 
(chapter 5); number crunchers, 
rounding, remainders, print using, 
arrays and conversions (chapter 6); 
strings, peeks, pokes, code look-up, 
string compression and upper case 
conversions (chapter 7); date and 
time manipulations (chapter 8); bit 
manipulation (chapter 9); numeric 
arrays, searches and sorts (chapters 
10 and 11); video and keyboard 
routines and tricks (chapter 12); 
data entry routines (chapter 13); 
some "Useful Utilities" including a 
"Pretty Printer", a program merge 
and renumber utility and a DOS 
address finder (chapter 14); and 
finally an entire chapter on unique 
attributes of the Model II. There are 
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9§teome Property Analysts 

INCOPROP: Based upon standardized methods 
ot property analysis used throughout the real 
estate industry. Generates a 3 page report contain- 
ing an annual property operating statement and a 
comprehensive 10 year cash flow analysis. Con- 
tains IRS. tax table to project after-tax income 
stream and investor's I.R.R. 

• Handles 5 dlllerent methods of tax depreciation 

• Handles up to 3 loans & 3 different type loans 

• Highly interactive format permits "Sensitivity Analysis" 

• Disk files created for permanent storage of data 
Minimum system requirements: 32k RAM. 1 drive and 
printer. Sold with informative 78 page user's manual cover- 
ing basic aspects of Income property investment S 50 
data worksheets 

Model I & III: on cassette for easy transfer 

to disk . , $120 00 

Model II: on 8 inch diskette $145 00 

Model II: Version available in MBASIC 

running under CP/M 



tu*( 



$165 00 



MAINDEX: An easy-to-use program to aid you in 
the indexing of your files on disk. Can't find that 
program you wrote last month? Put your computer 
to work! Find any program or data file in your sys- 
tem in seconds. 

• A Main Index of all your other disk's directories 

• Alphabetizes list of files and gives you names, grans 
used, dates written, tracks and file descriptions 

• Sorts Files by name, disk, and categories 

• File descriptions can be searched for key words 

• Prints disk labels with disk name and file names 

• Uses all the advanced and extremely fast file manipu- 
lation capabilities of Apparat, Inc ,'s NEWDOS/80. 

Requires Level II. 48K. 1 disk drive and NEWDOS/80 on 
cassette for easy transfer to disk $20 95 




DEPT EU. PO BOX 591.NOVATO, CA 64947 



ELECTRIC SPREADSHEET 



ELECTRIC SPREADSHEET does everything you can do 
with a pencil, paper and calculator. Start with a blank 
screen. Move the fast cursor to desired location. Enter line 
or column labels or data. Select preprogrammed operators 
for line, column, or cell calculations. Run. Results appear 
on the screen, formatted for your printer. Revise. Run 
again. 

PREPROGRAMMED OPERATORS for mathematics, 
finance, and statistics. Save data on tape or disk. The 
screen is your window to a larger spreadsheet. Output 
features scrolling and split-screen. Variable formats for 
labels and data. 

UNLIMITED APPLICATIONS. P/L forecast. Personal 
budget. Real estate investment. Net worth forecast. 
Invoice. Cash flow estimate. Sales analysis. Check record. 
Business forms: 

16K version has 50 operators. 32/48K version has 70 
operators plus histogram plot, remote storage of data, 
global revise spreadsheet layout, alpha entries, and more. 

16K Model I or III Tape $34 95 

32/48K Model I or III Tape $64.95 

48K Model I or III Disk (Specify Model) $67.95 

YOU CAN'T LOSE! Calif, orders add 6Vfc% tax. 
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Dan G. Haney & Associates, Inc. 
P.O. Box 687, San Mateo, CA 94401 
(415) 493-4094 
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MMSFORTH VERSION 2.0: 
MORE FOR YOUR RADIO SHACK 
TRS-80 MODEL I OR MODEL III ! 

* MORE SPEED 

10-20 times (aster than Level II BASIC 

* MORE ROOM 

Very compact compiled code plus VIRTUAL 
MEMORY makes your RAM act larger Variable 
number of block buffers. 31-char,-unique word 
names use only 4 bytes In header! 

* MORE INSTRUCTIONS 

Add YOUR commands to its 79-STANDARD-plus 

instruction set! 

Far more complete than most Forths: single & 

double precision, arrays, string-handling, clock, 

more. 

* MORE EASE 

Excellent full-screen Editor, structured & 

modular programming 

Word search utility 

THE NOTEPAD letter writer 

Optimized for your TRS-80 with keyboard 

repeats, upper/lower case display driver, full 

ASCII, single- & double-width graphics, etc 

* MORE POWER 

Forth operating system 

Interpreter AND compiler 

8080 Assembler 

(Z60 Assembler also available) 

Intermix 35- to 80-track disk drives 

Model III System can read, write & run Model I 

VIRTUAL I/O for video and printer, disk and tape 
(10-Megabyte hard disk available) 
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THE PROFESSIONAL FORTH 
FOR TRS-80 

, (Over 2,000 systems in use) 

MMSFORTH Disk System V20 (requires 1 disk drive & 
16K RAM, 32K lor Model III) .$129.95* 

AND MMS GIVES IT 
PROFESSIONAL SUPPORT 

Source code provided 

MMSFORTH Newsletter 

Many demo programs aboard 

MMSFORTH User Groups 

Inexpensive upgrades to latest version 

Programming staff can provide advice, modifications 

and custom programs, to fit YOUR needs 

MMSFORTH UTILITIES DISKETTE: includes FLOATING 
POINT MATH (L.2 BASIC ROM routines plus Complex 
numbers, Rectangular-Polar coordinate conversions. 
Degrees mode, more), plus a full Forth style Z80 ASSEM 
BLER; plus a powerful CROSS-REFERENCER to list 
Forth words by block and line All on one diskette 
(requires MMSFORTH V2.0, 1 drive & 32K RAM) $39.95* 

FORTHCOM: communications package provides RS-232 
driver, dumb terminal mode, transfer ol FORTH blocks, 
and host mode to operate a remote TRS-80 (requires 
MMSFORTH V2.0. 1 drive & 32K RAM) . $39.95* 

THE DATAHANDLER V1.2: a very sophisticated data 
base management system operable by non pro- 
grammers (requires MMSFORTH V2 0. 1 drive & 32K 
RAM) . . $59.95* 

MMSFORTH GAMES DISKETTE: realtime graphics & 
board games w/source code Includes BREAKFORTH, 
CRASHFORTH, CRYPTOQUOTE, FREEWAY. OTHELLO 
& TICTACFORTH (requires MMSFORTH V2 0, 1 drive & 
32K RAM) $39.95* 

Other MMSFORTH products under development 

FORTH BOOKS AVAILABLE 

MMSFORTH USERS MANUAL 
non-owners 

STARTING FORTH 



INVITATION TO FORTH detailed beginner book on 
figFORTH $17.50* 

THREADED INTERPRETIVE LANGUAGES advanced, 
excellent analysis of MMSFORTH-IIke Ian 
guage $18.95* 

PROGRAM DESIGN & CONSTRUCTION - intra to struc- 
tured programming, good for Forth $13.95* 

FORTH -79 STANDARD MANUAL - official reference to 
79-STANDARDword set, etc $13.95* 

FORTH SPECIAL ISSUE, BYTE Magazine (Aug 1980) • 
we stock this collector's item for Forth users and begin- 
ners ■ $4.00* 

* ■ ORDERING INFORMATION: Software prices Include 
manuals and require signing of a single system, single- 
user license SPECIFY for Model I or Model III! Add 
$2 00 S/H plus $3.00 per MMSFORTH and $1.00 per addi- 
tional book; Mass. orders add 5% tax. Foreign orders 
add 20%. UPS COD, VISA & M/C accepted; no unpaid 
purchase orders, please. 

Send SASE lor free MMSFORTH information 
Good dealers sought 

Get MMSFORTH products from your 
computer dealer or 

MILLER MICROCOMPUTER 
SERVICES (U01) 

61 Lake Shore Road, Natlck, MA 01760 

(617)653-6136 
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also extensive notes on how to make 
the rest of the book work on the 
Model II TRSDOS 2.0 (chapter 15). 

Chapter 16 discusses two disks 
(available from the publisher at 
$19.95 each plus a shipping charge) 
which contain most of the utilities 
and demo programs presented in the 
book. 

The eleven appendices cover 
conversions, addresses (in most of 
the current disk operating systems), 
divisors of 255 and 256, graphic 
characters (Model I and III), and an 
index of functions, major 
subroutines, and USR routines. 
Shortcomings 

As with any work of this type, one 
needs to be aware of changes in 
operating systems. While the 
appendices are a great help in some 
areas, they don't cover DOSPLUS 
3.4, LDOS 5.1, or NEWDOS80 2.0. 
Like the original book of this series, 
TRS-80 Disk and Other Mysteries, 
some of the material is going to 
become out-of-date. But, as long as 
the user is aware of differences in 
newer versions of disk operating 
systems, ROMs and what-not, there 
shouldn't be many problems getting 
the most from this book. 

I found the contents pages far 
more useful in locating material 
than the index and a bit more 
complete in some respects. Also, this 
book is not for the beginner. 
Programming still takes a lot of 
work to do right. Learning to 
properly lay out a program is far 
more important than using one of 
these techniques to impress your 
friends. 

Conclusions 

If you are beyond the raw 
beginner stage and still don't 
understand READ and DATA 
statements, or, many of the 
programs in the various computer 
magazines don't work because you 
can't troubleshoot your own typos, 
then this book is not for you. But if 
you type in your own programs, take 
them apart and modify them for 
your own use, then this book should 
be at your fingertips. 

Clay Caldwell 

BasicPro 

Softworx, Inc 

PO Box 9080 

Seattle, Washington 98109 

16K Level II Models I & III 

$24.95 on cassette 

Softworx's BasicPro utility will 
give the cassette-based user many of 
the diagnostics which disk owners 



have learned to love, plus a few they 
should envy. This program includes 
ten commands which are easily 
accessible. The program is loaded 
under the system command and 
resides in high memory. Once the 
program is entered, a programmer 
has a number of useful commands 
available. 

You can move or copy a block of 
3ode within the program; renumber 
a section of code; join two different 
BASIC programs together from 
cassette; get a cross reference of all 
variables which tells where they are 
defined and used; and even rename 
the variables if you wish. The find 
command will search the program 
for a specific variable and tell where 
it occurs. The list command will tell 
you about all the variables and their 
line references. 

The authors of this program have 
included a command which is worth 
it all. By entering the command 
"/P", you can recover a program 
which you have previously killed 
with the NEW command. That sure 
beats saying "Oops". 

The utility also includes the 
ability to compress a program by 
having all blanks and remark 
statements removed, joining 
together lines of code, and 
automatically renumbering the 
program lines to 1, 2, 3, etc. The 
amount of processing time this 
saves is minimal, but it may help a 
little. I did find that when the utility 
went to compress very large lines of 
code (greater than 240 bytes), errors 
would result. There is also the 
reverse command to unpack the 
program, but don't expect to see the 
remark statements or the original 
line numbers come back. 

Included with the program is a 
very straightforward 11-page 
booklet which describes all the 
commands and their syntax. 

Cameron C Brown 



Typing Tutor . 

Dick Ainsworth and Al Baker 

Microsoft Consumer Products 

400 108th Ave. NE suite 200 

Bellevue, WA 98004 

(206) 454-1315 

$19.95 plus shipping 

Models I & III Level II 



Those of you who you have grown 
weary of the hunt-and-peck style of 
typing will be glad to hear of a new 
program from Microsoft called 
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Typing Tutor. This program, one of 
the better examples of Computer 
Aided Instruction, is designed to 
instruct and drill the novice to real 
mastery of touch typing. 

Although this 16K, Level II 
program is written in BASIC, it 
contains a machine-language 
subroutine that enables it to 
monitor each key twenty times a 
second. The resulting interaction 
with the typist is therefore in real 
time. 

After you've loaded and Run the 
program, the screen presents this 
menu of options: 

1. Letters 

2. Numbers 

3. Symbols 

Option 1, of course, teaches new 
letters. Option 2 teaches both 
number and letters. Option 3 
teaches all three categories 
together. 

If you enter 1, the program pauses 
for a few seconds, then presents this 
choice: 

1. Typing Tutor 

2. Practice Paragraph 

The Typing Tutor is the part of the 
program designed to teach you new 
letter, numbers and symbols. If you 
select Typing Tutor, the program 
prints the following headings at the 
top of the screen: Fast, Lesson Key, 
and New. Letters that appear under 
the Fast heading during the course 
of the program are those over which 
you have gained mastery. The 
letters that appear under the Lesson 
Key heading are those that the 
program is currently presenting for 
drill. The letter under New are those 
yet to be introduced. Each lesson 
consists of ten sets of two, four- 
character 'words', separated by a 
single space. As each letter or 
symbol is typed in, it is printed on 
the screen directly below the 
corresponding character in the 
lesson 'word'. If a mistake is made, a 
graphic block is printed below the 
response. 

Option 2, the Practice Paragraph, 
is actually a set of words and 
character combinations that test 
the typist's skill with what has 
already been learned. These words 
are drawn from a data list in the 
program, and are not randomly 
created combinations. You type 
these 'words' as quickly as you can. 
When you are finished, the program 
informs you of any keys missed, 
which keys you were slow on, your 
accuracy in percent, and your speed 
in words per minute. 



After the completion of each 
lession in Typing Tutor.you are 
presented with an evaluation of 
your performance, such as: 

Your accuracy is 94 percent at 16 
words per minute. 

You then have four further 
options: 

1. Allow Slower Response 

2. Same Response 

3. Require Faster Response 

4. Practice Paragraph 
Choosing Option 1 actually 

results in your being introduced to 
new letters at a faster rate. This is 
because the option lowers the 
required response time criteria by 
twenty percent. The program 
normally judges letter proficiency at 
the rate of twenty words per minute. 
After Option 1 is chosen, the 
required rate is lowered to only 16 
words per minute. Option 3 presents 
just the opposite choice, and 
requires that you type a letter at 
twenty percent greater speed before 
you are considered proficient. You 
can reset these options after every 
ten lessons. Option 2 presents 
another lesson at the same speed, 
while Option 4 allows you to call up 
a Practice Paragraph. 

After the completion of the Practic 
Paragraph, the only options are: 

1. Typing Tutor 

2. Another paragraph. 
Generally speaking, Typing Tutor 

is a pleasure to use. There is, of 
course, room for some improvement. 
The Practice Paragraph does not 
subtract errors when it calculates 
your speed, as do many other typing 
tests. The diagram of the keyboard 
presented in the instruction booklet 
is rather small. A larger diagram 
removable from the book for ready 
reference, would have been quite 
helpful. The word lists for the 
Practic Paragraph contain many 
BASIC commands. This is well and 
good, but this program can 
obviously serve a much wider 
audience, not all of it either 
sophisticated, or even familiar, with 
programming jargon. Perhaps 
additional word lists might be 
entered into the program from data 
tapes. 

My overall impression of this 
program is excellent. It is modestly 
priced, well designed, and user- 
adjustable. Its speed at adjusting to 
your increased skill is amazing. You 
will not tire of this program quickly, 
and it should do wonders for your 
typing powers. 

Dan Cataldo 




COMPUTER 
SUBCONTRACTING 

• Hardware Design 

• Software Design & 
Marketing 

• System Design & 
Installation 

• Consulting 




INQUIRIES INVITED 



Live in Tomorrow's 
house today! 

911 N.E. 148th 

Seattle, Washington 

98155 

(206) 771-1422 



rami 
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The two functions "&" and "&H" are used to convert 
an octal or hexadecimal constant to decimal. This is a 
convenient feature but if you want to use it on a variable 
within a program, you will find it won't work. It is 
designed to be used only with a constant. 

The constant following the "&" and "&H" is treated 
as a string but without the normal quotes associated 
with such. Thus, the function "&HA$" will give you 
garbage. The key to fooling the interpreter on the Model 
II and Color computer (extended BASIC version) is to 
use the VAL function. Try the following program, 
limiting the input to two or four digits. Use "FF" and 
"EAOO" for examples. 

10 INPUT A$ 

20 A = VAL("&H"+A$) 

30 PRINT" Hex value = "; A 

40 A = VALC&" + A$) 

50 PRINT"OCTAL VALUE ="+A 

60 GOTO 10 

This trick will only work on the Model II and Color 
computer. It does not function on the Model I or III. 
Thanks to Bill Dickson, New Orleans, LA 

In the Model II, the random access memory used for 
video memory is switched in and out of locations F800 
through FF7F. You can do this manually by sending 81 
to port FF to switch it in (overlaying that portion of 
memory) and send 01 to switch it out. All figures are 
expressed in hexadecimal. 

Thanks to Gerald Lippey, Los Angeles, CA 



When the tape recorder is under computer control the 
drive is left engaged as long as the play and/or record 
function is pressed. If left this way for more than a 
moment, the tape can be physically distorted by the 
capstan and pinch roller. The resulting dimple may 
interfere with future use of the tape. With shorter "data" 
tapes, such as Radio Shack's Certified computer tape, 
this problem is exaggerated by the thicker base 



material. Avoid this difficulty by leaving the third 
(smallest) plug disconnected. The tape will continue to 
run until the stop key is pressed which will disengage 
the drive mechanism. 

Thanks to C. W. Evans, Sun City, AZ 

Many times in programming, it is useful to print the 
month name on the screen or printer. One method is 
with the user defined function: 



DEFFNM0$(M) = MID$(" JanFebMarAprMay 
JunJulAugSep0ctNovDec",M*3,3) 



This method does not use up string space, as storing the 
names in a variable or array, or use time as a 
FOR.. .READ.. .NEXT loop would. Note the two required 
blanks at the start ("bbJanFeb..."). 

For the number of days in any month, use this 
function: 



DEFFNND(M) = VAL(MID$(" 
13130313031'VM*2,2)) 



3128313031303 



If you want it for leap years as well: 



DEFFNND(M,Y) = VAL(MID$(" 31283130313 
0313130313031"„M*2,2)) - (Y/4 = INKY 
/4)) + (Y=1900) 



The year 1900 was not a leap year. Only the centuries 
evenly divisible by 400 are leap years. Also note the 
required blank at the beginning of "b31283130...". 

Thanks to C. D. Robertson, Ft. Worth, TX 




What Is OMNITERM? 



OMNITERM is a professional communications package for the TRS-80 that allows 
you to easily communicate and transfer files or programs with almost any other 
computer. We've never found a computer that OMNITERM can't work with. It's a 
complete package because it includes not only the terminal program itself, but also 
conversion utilities, a text editor, special configuration files, serious 
documentation and serious support. 

Why do I need it? 
You need OMNITERM if you need to communicate efficiently with many different 
computers, or if you want to customize your TRS-80 for use with one particular 
computer. You need OMNITERM to SOLVE your communications problems once 
and for all. 

What do I get? 
The OMNITERM package includes the OMNITERM terminal program, four 
conversion utilities, a text editor, and setting files for use with popular computers 
such as CompuServe, the Source, and Dow Jones — just as samples of what you can 

Bindberg h Systems 

pf p. _n .i j . . i . . —•■ — wdHxum ".:"'."■;■.' ":.'~.:.t."~~ ~ ~ • ■~* T * ? 



The ULTIMATE TRS-80 Terminal Package 



do for the computer you want to work with. The package includes six programs, seven 
data files, and real documentation: a 76-page manual that has been called "the best in 
the industry." And OMNITERM comes with real user support. We can be reached 
via CompuServe, Source, phone, or mail to promptly answer your questions about using 
OMNITERM. 

What do I need to use OMNITERM? 

A Model I or Model III TRS-80, at least 32K of memory, one disk, and the RS-232 
interface. OMNITERM works with all ROMs and DOSes, and will work with your 
special keyboard drivers. 

What will it do? 

OMWITERM allows you to translate any character going to any device: printer, screen, 
disk, keyboard, or communications line, giving you complete control and allowing you to 
redefine the character sets of all devices. It will let you transfer data, and run your 
printer while connected for a record of everything that happens. OMNITERM can 
reformat your screen so that 80, 32, or 40 column lines are easy to read and look neat on 
your TRS-80 screen. It even lets you get on remote computers with just one keystroke! 
The program lets you send special characters, echo characters, count UART errors, 
configure your UART, send True Breaks and use lower case. It accepts VIDEOTEX codes, 
giving you full cursor control. It will even let you review text that has scrolled off 
the screen! Best of all, OMNITERM will save aspecial file with all your changes so you 



can quickly use OMNITERM for any 
one of many different computers by 
loading the proper file. It's easy to use 
since it's menu driven, and gives you a 
full status display so you can examine 
and change everything. 
"OMNITERM has my vote as the top 
TRS-80 terminal program available today" 
Kilobaud Microcomputing, June 1981, 
pages 16-19. 

OMNITERM is $95 (plus shipping if 
COD) Call for 24 hour shipment. Manual 
alone $15, applied toward complete pack- 
age. Visa, M/C, and COD accepted. MA 
residents add 5% tax. Dealer inquiries 
invited. 

Contact Lindbergh Systems for your 
custom programming needs. We are 
expert at writing software to work with 
YOUR hardware, in assembler, high-level 
language, or Forth. 



41 Fairtlil! Road, HolfJen, MA 01520 (617) 852-0233 Sore: TOWS CompuServe ?0310267 TRS-80 is a '" of TandyCorp 
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CONVERT YOUR TRS-80 MODEL-I INTO A 

DEVELOPMENT SYSTEM 

Now you can develop Z-80 based, stand-alone devices such as games, robots, 
instruments and peripheral controllers, by using your TRS-80 as a development system. 
The DEVELOPMATE plugs into the expansion connector of your TRS-80 and adds 
PROM PROGRAMMING and 9N-CIRCUIT-EMULATION capabilities to your 
system (with or without expansion interface) 

Complete instructions and sample schematics are included to help you design your 
own simple stand-alone microcomputer systems THESE SYSTEMS CAN BE AS 
SIMPLE AS FOUR ICs^onaTTL circurt for clock and reset, a Z-80, an EPROM, and 
one peripheral interface chip. 

When the In-Circuit-Emulation cable is plugged 
into the Z-80 socket of your stand-alone system, 
the system becomes a part of your TRS-80: You 
can use the full power of your editor/assembler s 
debug and trace programs to check out both the 
hardware and the software Simple test loops 
can be used to check out the' hardware, then the 
system program can be run to debug the logic of 
your stand-alone device 

Since the program is kept in TRS-80 RAM, 
changes can be made quickly and easily When 
your stand-alone device works as desired, you 
use the Developmate s PROM PROGRAMMER 
to copy the program into a PROM With this 
PROM, and a Z-80 in place of the emulation 
cable, your stand-alone device will work by itself 

The DEVELOPMATE is extremely compact Both the PROM programmer and the 
In-Circuit-Emulator are in one small plastic box only 3 2" < 5.4" A line-plug mounted 
power supply is included The PROM programmer has a personality module which 
defines the voltages and connections of the PROM so that future devices can be 
accommodated However the system comes with a universal personality module 
which handles 2758,2508(8K), 2716,2516(16K), 253202K), as well as the new elec- 
trically alterable 28 1 6 and 480 16( 1 6K EEPROMs) 

The COMPLETE DEVELOPMATE 81, with software, power supply, emulation 
cable, TRS-80 cable, and universal personality module, is ONLY S329! 
The PROM PROGRAMMER is available separately tor ONLY S239 



ORION INSTRUMENTS 

1 72 Otis Avenue, Dept B , Woodside, CA 94062 

(415)851-1172 

Master Charge and Visa phone orders accepted 

California residents please add 6% sales tax 
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UBS 



MANAGEMENT 

SYSTEMS 

SOFTWARE 



Business Programs 





TRS 80 




Model l/lll Model II 


Proforma Cash-Budget 


$125 $175 


Prof or ma Income 




and Balance Sheet 


125 175 


Lease-Purchase Decision 


100 150 


Business Analysis Package 




(12 individual programs) 


100 150 


Procurement 


100 150 



College Enrollment 

Projection 
Gradebook 



100 
50 



150 
100 



All programs on disk with extensive documentation 
Send tor a brochure which Hilly describes the programs 

MANAGEMENT SYSTEMS 
SOFTWARE, INC. 

5200 Brittany Drive #1006 
St. Petersburg, Florida 33715 
Phone (813) 864-4347 
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• CHROME is the perfect back-up for disk— low cost, very low error rate 

• Twice as secure during EMPs, power failures, & other malfunctions 

• MICROFUSION* CHROME runs like a champ on high baud rate 
formats like JPC 

• Needs no special modification on good cassette decks 

• CHROME saves lots of money & time 
— saves lots of program & data 

C-10s — 10 for only $12.00! 

C-20s — 10 for only $15.00! 
Add $2 per order for P&H; in CT add 7.5% tax. M.O., check, MasterCard, 
Visa. If paying by card, give card number, expiration date, sign order. 
Prompt shipment. 

Nine CHROME are in black, 5-screw shells; the 10th CHROME (in white) 
carries a half dozen of Emory Cook's fast-running business-oriented sub- 
routines with documentation. They're in R/S Level II Basic, some very 
sneaky. 

True digital transfer plus premium tape makes us the acknowledged prime 
duplicator of software for T.I., OSI, and all the Tandy, Apple, Pet, Atari, 
& fast formats. Write for further information, or call 203-853-3641. 

*™ Re ° COOK LABORATORIES, INC. 

375 Ely Avenue Norwalk, CT 06854 

Oldest in DIGDUP, newest in SOAP 
(If you don't know what SOAP stands for, place an order!) 



AT LAST! 

Mass production prices for high quality software Buy direct and save 50% Also 
available for CPM and HDOS 

DATA BASE MANAGER Mod I & III S69, $149 (48K) Mod-ll S199 

Maintain a data base and produce reports, all without user programming Define 
file parameters and report formats on-line Key random access, fast multi-key 
sort, field arithmetics, audit log, label No time-consuming overlays 500 happy 
users in one year Mod-ll and 48K versions have over 50 enhancements, including 
40 fields maximum "IDM-M2 is great!" - 80-US. 

A/R Mod-I S69 Mod-ll S149 Mod-Ill S69 

Handles invoices, statements, aging, sales analysis, credit checking, forms input, 
and order entry Unlike other accounts receivable programs, ours can be used by 
doctors, store managers, etc. 

WORD PROCESSOR $49 

Centers, justifies, indents, and numbers pages Mod-I version features 
upper/lower case without hardware modification! File merge option available. 

MAILING LIST Mod I & III $59, $79 (48K) Mod-ll $99 

The best! Compare and be selective Includes forms input, 5-digit selection code, 
zip code extension, sort on any field, and multiple labels. Who else offers a report 
writer and merges with word processor? 

INVENTORY Mod I & III $89, $109 (48K) Mod-ll $149 

Fast key random access Reports include order info, performance summary, E0Q 
and user-specified reports Many people have converted to our system! "Next to 
impossible to damage the file " 

GL, A/R. A/P. PAYROLL Mod-ll $129 each 

Integrated accounting package 100+ page manual As opposed to Osborne's slow 
binary search and 64 column screen, we use fast ISAM and 80columns Dual disk 
and TRSD0S required 

L216 $59 

A cassette package of 10 business programs for Level I1 16 K systems Includes 
word processor and data base manager Poker game $19 

Most programs are on-line, interactive, random-access, bug-free, documented, 
and delivered on disks Modi programs require 32K TRSD0S We're #1 in business 
software— don't let our low price fool you! Ask for our free 20-page catalog if 
you're still not convinced Compiled versions are available 
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Accessories 
, The Following 
NEW Items 

Hewlett-Packard® 

HP-85 
Personal Computer 

Epson® 
MXBQ Printer 

Mag§ia¥Ox® 

Odyssey 2 

Home Video System 

SViagnawox® 

Magnaviseon® 
Videodisc Player 



• FREE SHIPPING in 48 
continental contigious 
States. 

• NO SALES TAX collected 
on out-of-state orders. 

• FREE Discount Price List 
available. 



BER 



TOLL FREE ORDER NU 
800/531-7466 
Texas &. Principle Number 

512/581-2766 

Fort Worth No. 817/625-6333 

Telex Number 767339 



Sales and Main Office 

Dept. 49 » 1117 Conway Ave. 

Mission, Texas 78572 

NEW Fort Worth Branch 

Dept. 49 • 2912 N. Main St. 

Fort Worth, Texas 76106 



i Trademark of Tandy Cot p. 
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* 80-U.S. Books 55 

* 80-U.S. Books .' 120 

50 Aardvark-80 93 

22 Access Unlimited 37 

1 3 Acorn Software 23 

65 Advanced Operating Systems 116 

1 1 Advanced Operating Systems 17 

34 Adventure International . . Centerfold 1 

36 Adventure International . . Centerfold 4 

26 Aero Comp 45 

66 Aladin Software 117 

41 Allen Gelder Software 73 

104 Algorix 73 

87 All Systems Go 118 

32 All Systems 57 

5 Alpha Products 5 

30 AMRAD 54 

27 Apparat 48, 49 

1 Apparat Cover 2 

1 8 Aspen Software 29 

56 Byte Miser Software 109 

57 Chicatrug News 109 

99 CMD Micro 127 

85 Complete Computer Service 116 

62 Computer Discount of America ...114 

, 59 Computers N Stuff 113 

28 Computer Shopper 51 

67 Computer Plus 1 28 

88 Computer Applications Unltd 119 

38 Computerists Directory 67 

96 Cook Labs Inc 125 

10 Cornucopia Software 15 

2 Corvus Systems Cover 3 

33 Creative Software 61 

1 5 Crystal Computer 26 
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69 Dental Computer Newsletter 116 

8 Designatron 11 

89 E-Z Software 121 
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84 Eric Clough 117 
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* Please contact these advertisers directly. 
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86 Psycomp Software 117 

75 Publishers Exchange 117 
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31 Software Affair 56 
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Back Issue availability 
The following back issues of 80-U.S. Journal 
are still available: IVlay/Jun 1979, Nov/Dec 
1979, IViay/Jun 1980, Nov/Dec 1980, 
Jan/Feb 1981, Ivlay/Jun 1981, Jul/Aug 
1981, Sep/Oct 1981 and Nov/Dec 1981. 
The price per copy is $4.00 postpaid in the 
United States, Canada and Mexico, other 
foreign buyers please add appropriate 
additional air or surface postage. 



126 80-U.S. Journal, January, 1982 



.Unclassified ads 



NEW QUARTERLY NEWSLETTER FOR 

VisiCalc® users. Disks too. $7.50. Micro-Calc 
Business Users Group, PO Box 12039, Salem, 
OR 97309 (01 2) 

PRINTER INTERFACE - LETS YOU connect 
the MX-80 to your CPU without the Exp. 
Interface. Illinois Custom Computers, 110V? N 
Vine, Harrisburg, IL 62946 (618) 252-4050 or 
send $85.00+ 3.00 s/h. (012) 

WE'LL INSTALL YOUR SPEEDUP Small 

Business Systems Group Inc is offering to install 
an 'Archbold' speedup for your TRS-80. This 
feature will improve the performance by 100%, 
automatically returns to normal speed during 
disk and cassette operation. No software mods 
are required. All speedups are installed by trained 
personnel and are guaranteed for 30 days. This 
feature is ideal for systems running hard disk, or 
double density or 8" drives. The cost is $125 + 
shipping. All systems will be checked out before 
any work is done to insure proper operation. Call 
or write: Small Business Systems Group, 6 
Carlisle Road, Westford, MA 01886 (617) 692- 
3800 (012) 

FOR TRS-80: RS-232 BOARD. Fix intermittent 
problems due to PC board connector with a 
connector brace. Easy to install. Only $4.95. 
Gunn Industries 704B Franklin, Austin TX 
78751 (052) 

TRS-80 COLOR "BRICKAWAY" GAME. Fast 

action machine language video game; destroy 
bricks with bouncing ball. Sold on cassette, 
joystick required. Runs on any configuration 
machine. Only $7.00 post paid. From Britt Monk, 
CPD PO Box, Elyria, OH 44036 (022) 

WORD PROCESSING IN BASIC. YOU GET 

two programs, one for disk one for Level II BASIC. 
$14.95 on cassette. Send SASE for further 
information. Jerry Lee, 6953 Waldo, Detroit, Ml 
48210 (012) 

TRS-80 VOICE SYNTHESIZER^ CABli! 

Manual, Demonstration tape. 4 months old. $ 1 50 
or best offer. Randy Rosier, 714 Brown St., Iowa 
City, IA 52240, (31 9) 338-5097. (01 2) 

OKIDATA MICROLINE 80 - TRS-80 graphics 
printer uses fan-fold or roll paper. 200 million 
character head. 3000 hours MTBF. Quiet 
running. Compare to MX-80-FTI $450 Canadian, 
$400 US. Phone Walter, collect (604) 986-0866 

(012) 

TRS-80 SOFTWARE FOR SALE. I BOUGHT A 

new Model III so some of my Model I Level "11 
software is for sale cheap. Examples: 
NEWDOS80 (disk) $95, Editor/Assembler Plus 
(tape) $25, Adventures 7-8-9 (disk) $25, Space 
Warp (tape) $10. All programs are almost new 
and guaranteed to run. Write for complete list to 
Jeff Metzner, 100 State St., Room 900, Albany, 
NY 12207 (022) 

Unclassified Advertisements 
Effective with this issue, the "Unclassified" 
advertising space is available free to individuals 
with single or unusual items for sale. 80-U.S. 
Journal reserves the right to reject any 
commercial advertising in this section and 
suggests using our display advertising for 
commercial purposes. 

These notices are free of charge and will be 
printed one time only on a space available 
basis. Notices will be accepted from individuals 
or bona fide computer user clubs only. All these 
unclassified advertisments must be typed, 
contain 75 words or less and include complete 
name and address information. 



PART-TIME BUSINESS OPPORTUNITY - 

Need dealers for my TRS-80 based business. 
Initial investment $500 to $1000. Tremendous 
potential. Minimum system required Model 1 48K 
1 -disk with Epson MX-80 or equivalent. For 
details and product sample send date, time and 
place of birth to Bob's Charts, 405 E. Third St., 
Suite 206, Long Beach, CA 90802. Include 
detailed description of your system. (022) 



Software Potions 

24 Exciting Programs 

for only $2.50 each 

Subscribe to Software Potions 

and receive a cassette with 4 
superb machine code programs 
every other month. Comparable 
programs would sell for $8 to $15 
each elsewhere. 



6 issues 
Sample issue 



$59.95 US 
$18.95 US 



Software Magic 

Box 2184, Bramalea Postal Stn. 

Bramalea, ONT 

Canada L6T 3S4 

Tel. (416) 451-9452 
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CANADIANS 

NOW IN STOCK 

ACORN SOFTWARE 

BIG FIVE 

INSTANT SOFTWARE 

CREATIVE COMPUTING 

ADVENTURE 

INTERNATIONAL 

APPARAT INC. 

EPSON PRINTERS 

MANY MORE 

MOD I o MOD III • COLOR 

Excellent 5V*" Diskettes 
S. Den. or D. Den. 
Fully Guaranteed 

Lower Case Mod - Mod I 
One IC $29.95 

IBM Selectric Printer 
Conversion Kit $825.00 

VISA 

Phone or Write for Info. 
(403) 423-3919 

CMD MICRO 

10546- 106 Street 

Edmonton, Alberta 

T5H 2X6 




"I liked it better 

when all they wanted 

were dolls and 

trains." 
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THE COLOR COMPUTER'S 
OWN MAGAZINE 

• Game Programs 

• Uselul Utilities 

« Honest Product Reviews 

• Hints and Tips 

• Software discounts 

The RAINBOW is the only monthly magazine 
devoted exclusively to the TRS-80 Color Computer.* 
It will make your computer more useful than ever 
before. 

"II I could make only one purchase lor my Color 
Computer, it would be the RAINBOW Its lantastic!" 

— G S , Houston (a subscriber) 

Subscribe to the RAINBOW today. A 12-month 
subscription is only $12. 




5803 Timber Ridge Dr. • Prospect KY 40059 

Trademark ol Tandy Corp 
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Model 1 111 6K 

$839 

Model III 48K 
2disc&RS232C 

$2100 



w/16K Ext. Basic 
$459 



BUY DIRECT. These are just a few of our great 
offers which include Printers, Modems, Com- 
puters, Peripherals, Disc Drives, Software and 
more, call toll frei 1-800-345-8' 

We have the lowest 

possible fully 

warranteed prices Write for your 

and a full complement ee iL a HJ «» ^ 

of Radio Shack Software. urtleton, ma 01460 

S ^_ 617 ' 486 « 3193 ^ 
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LDQS DEALERS 



Arizona 

• Simutek 

Tucson 85712 (602) 323-9391 

Arkansas 

• Micro Computer Systems, Inc. 
Hotsprings 71901 (501)623-5209 

California 

• B.G.L. Technology 

Van Nuys 91409 (213)787-0535 

• Berkeley Microcomputers 
Berkeley 94701 (415)848-7122 

• Byte Shop of Placentia 
Placentia 92670 (714) 524-5380 

• Byte Shop of San Diego 

San Diego 921 11 (714)565-8008 

• Central. Campbell Computers 
Campbell 95008 (408) 370-0199 

• Computer Forum 

Santa Fe Springs 90670 (21 3) 921 -21 1 1 

• Computerland of 1000 Oaks 
Thousand Oaks 91360 (805) 495-3554 

• Dimensional Software 

San Diego 92117 (714)275-4243 

• Hobby World 

Northridge 91328 (213) 886-9200 

• Howard Industries 

Anaheim 92806 (714) 778-3443 

• J & R Inventory 

Santa Ynez 93460 (805) 688-8781 
• Jim's Computer Service 
Laguna Nigel 92677 (714) 831-8063 

• Laredo Systems 

Santa Clara 95051 (408)980-1888 

• Lobo Drives International 
Goleta 93117 (805) 683-1576 

• Micro Computer Tech., Inc. 

Santa Ana 92704 (714) 979-9923 

• Micro Doc 

San Gabriel 91776 (213) 285-0534 

• Patio Computer Sales 

Worth Hollywood 91605 (213) 762-0020 

• R.B.I. Commnet 

Riverside 92505 (714) 359-6884 

• Santigo Technology 

Irvine 92713 (714) 551-2610 

• Teem Quest 

Palm Desert 92260 (714) 340-5331 

• Wholesale Technology, Inc. 
Santa Ana 92704 (714) 979-1700 

District of Columbia 

• The Program Store 

Washington, DC 20016 (202) 363-9797 

Florida 

• Adventure International 
Longwood 32750 (308) 830-8194 

• All Systems Go 

Wintergarden 32787 (305) 877-2830 

• Computer Junction 

Ft. Lauderdale 33310 (305) 791-0580 

• H.I.S. Computermation 
Melbourne 32901 (305) 254-9399 

Idaho 

• Idaho Micro Computer 

Buhl 83316 (208) 543-6292 

• Thompson Sporting Goods 
Rexburg 83440 (208) 356-9245 

Illinois 

• The Byte Shop, Incorporated 

La Grange 60525 (312) 579-0920 

• C.M.S. 

Chicago 60657 (312) 327-7550 

• Garcia & Associates 

Chicago 60601 (312)782-9750 

• Information Concepts 

Richton Park 60471 (312) 748-2426 

Kansas 

• Cottage Software 

Wichita 67208 (316) 668-3481 



Kentucky 

• Computer Magic 
Louisville 40207 (502) 893-9334 

Louisiana 

• The Computer Shoppe 
Metairie 70002 (504) 454-6600 

Maryland 

• The Program Store 

Baltimore 75710 (301) 944-0200 

Massachusetts 

• Miller Micro Computer Service 
Natick 01760 

• Omnitek Systems 

Tewksbury 01876 (617)851-4580 

• Small Business Systems Group 
Westford 01886 (617) 692-3800 

Michigan 

• The Alternate Source 

Lansing 48910 (517) 485-0344 

• A.M. Electronics, Inc. 

Ann Arbor 48106 (313)973-2312 

• Breeze Computing 

Berkley 48072 (313) 288-9422 

• Computer Center 

Garden City 48135 (313) 425-2470 

• Computerland of Kentwood 
Kentwood 49508 (616) 942-2931 

• Soft Sector Marketing, Inc. 
Garden City 48135 (313) 425-4020 

• The 8 Bit Corner 

Muskegon 49440 (616) 722-0050 

• Tri County Electronics 

Fenton 48430 (313) 629-5767 

Nevada 

'• Hurley Electronics 
Las Vegas 891 14 (702) 384-5666 

New Hampshire 

• Portsmouth Computer Center 
Portsmouth 03801 (603)431-7438 

• TSE Hardside 

Milford 03055 (800) 258-1790 

New Jersey 

• Computer Madness 

Englishtown 07726 (201) 462-9696 

• Crowleys Radio Shack 
Whitehouse Station 08889 
(201)534-2722 

• J & J Electric/ Radio Shack 
Hackettstown 07840 (201) 852-6976 

• M-T Electronics 

Sparta 07871 (201)729-5719 

• The Computer Forum 

Redbank 07701 (201)530-9103 

New Mexico 

• Autel Electronics 

Albuquerque 87108 (505) 255-6451 

• Data Base, Inc. 

Albuquerque 89112 (505) 881-5362 

New York 

• A World of Computers 

Port Chester 10573 (914) 937-6662 

• B.T. Enterprises 

Centereach 11720 (516) 981-8568 

• Computerland of Nassau 

Carle Place 11514 (516) 742-2262 

• Computerland of New York City 
New York 10036 (212) 840-3223 

• Computerland of White Plains 
White Plains 10603 (914) 328-0144 

• Computronics 

Spring Valley 10977 (800) 431-2818 

• Digibyte Computers Center 

New York 10016 (212) 889-8130 

• Future Visions Computer Store 
Melville 11747 (516)423-7820 

• Integral Business Systems 

Jackson Heights 11370 (212) 695-6300 

• JFA Electronics 

Troy 12180 (518) 273-8411 

• Micro Images 

Flushing 11352 (212) 445-7124 

• Mini Micro Mart 

Syracuse 13203 (315) 422-4467 

• John D. Owens Associates, Inc. 
Staten Island 10305 (212) 448-6283 

• Programs Unlimited 

Jerico 11753 (516) 997-8668 

Ohio 

• Micro Mini Computer World, Inc. 
Columbus 43213 (614) 235-5813 



Oklahoma 

« The Computer Store 
Tulsa 74105 (918) 747-9333 

• Teel Electronics/ Radio Shack 
Claremore 74017 (918) 341-0987 

• Vern Street Products/ Radio Shack 
Sapulpa 74066 (918) 224-4260 

Pennsylvania 

• Computer Analyst 

New Briton 15066 (412) 846-9336 

• Erie Computer 

Erie 16505 (814) 454-7652 

• 1.0. Systems 
Edinboro 16412 

• Stevens Electronic/ Radio Shack 
Phoenixville 19460 (215) 933-3441 

• V.R. Data 

Folcroft 19032 (215) 461-5300 

Texas 

• Access Unlimited 

Richardson 75080 (214) 690-0206 

• Aerocomp 

Dallas 75232 (214) 337-4346 

• AT-80 

Dallas 75211 (214)339-0498 

• Computer Sales and Service 

Fort Worth 76101 (817)244-8052 

• Computer Shack 

Tyler 75702 (214) 595-4216 

• Computers To Go 

Austin 78705 (512) 472-8926 

• Computex 

Webster 77598 (713) 488-8022 

• Corsair Computer 

Fort Worth 76101 (817)344-8051 

• Quality Software Distributors 
Dallas 75229 (214) 484-5783 

• Texas Computer Services 
Arlington 76010 (817) 265-1524 

• Tots! Accbss 

Richardson 79408 (214) 234-1770 

Virginia 

• Misosys 

Alexandria 22303 (703) 960-2998 

Washington 

• 80-US Journal 

Tacoma 98409 (206) 475-2219 

Wisconsin 

• Galactic Software, Ltd. 
Mequon 53092 (414) 241-8030 

• Omega Micro 

Milwaukee 53208 (414) 342-9080 

• Petted Micro Systems 
Milwaukee 53221 (414)282-4181 

Belgium 

• Micro 2000 
Brussels 

Canada 

o Cesco Electronics, Ltd. 
Montreal H4P1W1 

• Microwest Distributing, Ltd. 
North Vancouver, B.C. V7P1M6 

England 

• Computer Shop 
London 

• Croydon Computer Center 
Thornton, Heath, Surrey 

• Calisto Computers, Ltd. 
Birmingham B1 1BE 

• Molimerx, Ltd. 
Sussex 

• & J House L.T.D. 
Dorset 

• Q-Tek Systems L.T.D. 
Stvenage, Hertz 

• P.J. Equipment L.T.D. 
Guildford, Surrey 

• Thomas Wright Bradford, Ltd. 
Bradford, West York BD4 8B2 

France 

• Graphie 
93100 Montreuil 

Holland 

• Software Import Brabant 
Endoven 

Netherland 

• Computer Collectief 
1017 AP Amsterdam 




YOU CAN 




VALU 




YOU CAN 
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M.T. I . 

MOD III PLUS 

Now You Con Sove 

$500 over comporoble model 





We hove token rhe basic 16K Model III expanded 
rhe memory to 46 K and added our MT1 Double 
Density, Dual Disk Drive system. System is fully 
compatible with Radio Shock DOS and peripherals. 



MOD IN/EXPANDED 

Same as above but has double storage capacity (706 storage). 
Your choice of 2 dual headed 40 track drives or 2 single headed 
80 track disk drives 



$2499 



MOD IN/280 

Our largest MOD III approximately 1 .5 mega'bytes of srorage. 
utilizes 2 dual headed 80 track, double density disk drives 
Complete with manuals and professional operating system 
Microsystems DOS plus 3.0. 



*2799 



MTI MOD III. SALES, PARTS & SERVICE CENTERS-INDEPENDENT DEALERS 



■ ■ ■ 



PHOENIX. AZ ... 
SIERRA VISTA. AZ 

TEMPE, AZ 

TUCSON AZ 

ANAHEIM. CA 

COV1NA. CA 

HOLTVILLE. CA . . . 
INGLEWOOD. CA. 
LANCASTER. CA... 

OXNARD, CA 

SAN DIEGO. CA... 
SAN JOSE. CA . . . . 
SANTA CRUZ, CA.. 



r - r 



* » * 



(602) 244 
(602) 458 
(602) 839 
(602) 323 
(714)773 
(213)332 
(714)356 
(213)673 
(605)942 
(605) 486 
(714)275 
(406)946 
(406)427 



■9739 
■2479 
0546 
■9391 
■0240 
-4088 
■5185 
■3295 
■5747 
■5837 
-4243 
-1265 
-0836 



WALNUT. CA (714) 



+ + + 4 



FORT COLLINS. CO 

GROTON, a 

HOLLYWOOD. FL 
GEORGIA 
KAILUA. H 

IDAHO 

5HREVEPORT, LA 
JOPUN.MO .... 

MIDWEST 

MISSOULA. MT . . 

RALEIGH N.C (919) 

JERICHO. NY (516) 



(303) 
(203) 
(305) 
(404) 
(808) 
(208) 
(318) 
(417) 
(618) 
(406) 



594-8311 

221-1776 

445-5166 

981-1011 

449-8962 

261-6596 

765-1497 

865-7169 

781-1746 

345-5066 

549-9715 

755-1175 

997-8668 



MANHASSET. NY (516)869 

NEW ROCHELLE, NY . . (914) 235 
TROY, NY (516)273 



h r h I 4 + + 



N & S DAKOTA . 
CLEVELAND. OH 
MAUMEE. OH 

DALLAS. TX 

CHEYENNE, WY. 

MEXICALL BC 

OVERSEAS 

AUSTRALIA 

BELGIUM , . 

REP. OF SOUTH AFRICA 



4-4+4444 



■ • • • a 
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(701)594 
(216)779 

(419)893 
(214)247 
(307) 632 
(714)357 



3677 

1663 
2145 



r r r i r r r 



8335 
^4444 
8411 
5674 
6040 
4288 
6679 
■9132 
-4717 

6946 
2452 

-1047 
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MICROCOMPUTER TECHNOLOGY INC 

3304 W. MACARTHUR, SANTA ANA, CA 92704 
• (714)979-9923 • TELEX 6780401 TABIRIN • 



MasterCard 




VISA 




J US. PRICES 

FOB. SANTA ANA. 
CALIFORNIA 
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Now for theTRS-80 Models I & III 
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* DOUBLE Sided & DOUBLE Density support. 
:|! AUTOMATIC Density recognition. 

* 35, 40. 77. 80 and any other track counts are supported. 
:|! All available drive stepping rates are supported. 

Hard Drive support, can be HANDLED AS A SINGLE DRIVE. 

Hard drive partitioning, one drive can act as up to six. 

Intermix 5". 8" and Hard drives, up to a total of 8 drives. 

Compatible with the Model I Radio Shack Expansion Interface. 

Upward compatible with TRSDOS (2.3 & 1.2 as documented). 

Fully supports Microsoft language products for the TRS-80. 

Complete media compatibility Model I to Model III and back. 

Full support for LOBO's LX-80 interface. 

Full support for AEROCOMP LC double density controller(DDC) 

Full support for PERCOM's DOUBLER II. 

Complete documentation (well over 250 pages). 

Complete technical information. 

A TOLL-FREE 800 number for customer service. 

An LDOS users bulletin board on MicroNET. 

A Quarterly LDOS users magazine (The LDOS QUARTERLY). 

A liberal update policy. 

An enhanced BASIC (LBASIC) including: 

> Upward compatible with Microsoft Basic. 

> High speed LOAD and SAVE. 

> Run multiple programs with common variables. 

> BLOCKED (variable length) files are supported. 

> DOS commands may be executed from LBASIC. 

> Built in string array. SORT. 

> Single stepper for debugging. 

> Several new statements and file modes. 



A compiled JOB CONTROL LANGUAGE ( JCL). 

CONVert utility to move files from Model III TRSDOS. 

An Extended Debuggingand Monitor program (withdiskaccess). 

CMDFILEfor movement of disk and/or tape system (/CMD) files. 

Device independent operation. 

Full LINKing. ROUTEing. FILTERingand SETting are supported. 

MiniDOS feature for constant access to certain DOS commands, 

RS-232 DRIVER for serial support. 

Sophisticated communications software included. 

Wildcard characters and partial Filespecs are supported. 

DATED FILES, show when a file was last written to. 

Backup: Mirror, by Class, if Modified, by Date, by Extension, etc. 

Selectable PURGE for fast disk "cleanup" of unwanted files. 

Print formatter, for control of printer output. 

Built in printer SPOOLER, to both disk and ram. 

Joblog to record all system operations with time stamps. 

UPPER and lower case support, throughout the system. 

Blinking cursor with selectable cursor character. 

128 character TYPE AHEAD buffering for keyboard input. 

Assign strings to individual keys with Key Stroke Multiply (KSM). 

SUPER FAST operation with the SYSRES feature. 

Extensive user control and system feedback. 

Advanced PATCH utility for easy maintenance. 

Complete transportability of software among all Z-80 LDOS 

systems through the use of the LDOS high ram supervisory 

call system (SVC). 

• Dealers to serve users Nationwide and in the Common Market. 

• The only DOS with a limited ONE YEAR WARRANTY^ 

• Enjoy a professional operating system on YOUR TRS-80! 



* Specific hardware is required to use these features. 



The Ultimate In 
Operating Systems 
For Model I & III 



Only $ 



169 



00 



Version 5 I 



* Model I LDOS provided on 35 track single density rnedta. 

>:: Model III LDOS provided on 40 track double density media, 

* LDOS can be provided on special media configurations at an 
additional charge 

* Prices & Specifications are subject to change without notice. 
■■- Although not required, LSI recommends two or more drives 

when using LDOS 



For Further Information Contact The Distributor Or Dealer Nearest You. 



(West) 

LOBO DRIVES INT'L 

354 S FairviewAve 

Goleta, CA 93117 

(805) 683-1576 



(Central) 
GALACTIC SOFTWARE LTD. 

11520 N Port Washington Rd. 

Mequon, Wl 53092 

(414) 241-8030 



(East) 

MISOSYS 

5904 Edgehill Dr. 

Alexandria, VA 22303 

(703) 960-2998 



(The Common Market) 

MOLIMERX LTD. 

1 Buckhurst Rd.. Bexhill 

Sussex. England 

(0424)-220391 



OGICAL 
SYSTEMS 
INC. 



DEALER INQUIRIES WELCOME. LDOS is a product of LSI TRS-80 & Radio Shack are trademarks 
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Mequon, Wl 53092 
(414)241-3066 



Radio Shack Has Everything 
You Need for Your TRS-80 




3 File Boxes for Your Diskettes. Two open 
and shut cases for protecting 5 l A" or 8" floppies. Holds 
50-60, with index dividers. Durable acrylic. 
For 5*A Diskettes. #26-1453, $29.95 
For 8" Diskettes. #26-4953, $39.95 

3 Disk Drive Head Cleaning Kit. Helps pre 
vent read/write errors. Easy and safe — just aj 




tion to a cleaning diskette (two included) and run it in 

drive for 30 seconds. 

For 5 VV Drives. #26-407, $29.95 

For 8" Drives. #26-4909, $29.95 

ED Genuine TRS-80 Diskettes. Best you can 
buy. Certified error-free. Extra-long life, double den- 
sity, soft sector. 

5" 4 Single Diskette. #26-305, $4.95 
5 V* Three-Pack. #26-405, $15.95 
5 V*" Ten-Pack. #26-406, $39.95 
8" Single Diskette. #26-4905, $7.50 
8" Ten-Pack. #26-4906, $59.95 

(E Diskette Library Cases. Protection against 
dust and curling. An easel insert pops-up for easy selec- 
tion. Holds ten floppies. Polystyrene. 

For 5V4" Diskettes. Gray. #26-1452, $3.95 
For 8" Diskettes. Brown. #26-4952, $4.95 




Anti-Glare Mask. Solves reflection problems 
No loss of resolution. For TRS-80 Models I, II and III 
Not for color monitors. #26-511, $16.95 

F Anti-Static Spray. Prevents static electricity 
build-up that can attract dust and damage equipment 
Apply to accessories, video display and carpet 16 
ounces. #26-515, $5.95 



GJ Printviewer. Magnifies and highlights a single 
line of your printout. Reduces errors. Clear plastic 
with yellow "line window." Includes 10 and 12 cpi 
scales. #26-1313, $2.95 

H Logic Flowchart Template. This durable, 
clear-plastic "stencil" with ANSI flowchart symbols 
and V\o" layout grid makes it easy to draw pro-qualitv 
charts. #26-1312, $3.95 

HI Stacking Data Trays. For standard 14 7 /*"- 
wide printouts. Eliminates damage to paper caused by 
using an undersized tray, #26-1309, each $6.95 

FREE 1982 TRS-80 Catalog. 48 full-color, fact- 
filled pages. Ask for your copy, wherever you see this 
sign: 



Radio /hack 

The biggest name in little computers® 

A DIVISION OF TANDY CORPORATION 

Prices may vary a* individual scores and dealers. Some items may require spedal order. 
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Frustrating isn't it! No matter how 
much you speed up your program 
it still seems to take forever to save 
data onto a cassette. Wouldn't it 
be great if someone could design a 
mass storage system with the speed 
of a disk, but at half the cost? 
Exatron did, the Exatron Stringy 





Totally self-contained, the ESF 
is an extremely fast, reliable, and 
economical alternative to cassette 
or disk storage of programs or 
data. All of the ESF's operations 
are under the computer's control, 
with no buttons, switches, knobs or 
levers to adjust or forget. 

The ESF uses a miniature tape 
cartridge, about the size of a busi- 
ness card, called a wafer. The 
transport mechanism uses a direct 
drive motor with only one moving 
part. Designed to read and write 



digital data only, the ESF suffers 
from none of the drawbacks of 
cassettes - without the expense of 
disks. 

Several versions of the ESF are 
available, for the TRS-80, Apple, 
PET, OSl and an RS 232 unit. 
Even the slowest of the units is 15 
times faster than a cassette, and all 
are as reliable as disk drives - in 
fact a lot of users say they are more 
reliable! 




excellence in electronics 

exatron 



To get further information about 
the ESF give Exatron a call on 
their Hot Line 800-538 8559 
(inside California 408-737 7111). 

If you can't wait any longer then 
take advantage of their 30 day 
money-back guarantee, you've 
nothing to lose but time! 

181 Commercial Street 
Sunnyvale, CA 94086 





TRS-SO. Apple and PET arc trademarks of Tandy, Apple and Commodore respectively. 




